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Bits and Pieces 



Mistaken Identity 

The latest version of BASIC for Commodore computers is 
BASIC 4.0. The version before this was BASIC 2.0. However, 
this is often referred to as BASIC 3.0. There is no 
difference between the two. In actual fact, BASIC 3.0 was 
never released! A brief summary: 

BASIC 1.0 : Original small keyboards PETs 

Power-up message: *** COMMODORE BASIC *** 
BASIC 2.0 : BASIC 1.0 upgrade and factory installed 

in big keyboard 2001 series machines 

Power-up message: ### COMMODORE BASIC ### 
BASIC 3.0 : Only difference from 2.0 was faster garbage 

collection. Never released. 
BASIC 4.0 : Contains fast garbage collection and disk 

commands implemented in BASIC keywords. 

Factory installed in all 4000 and 8000 

series PET/CBMs. 

Power-up message: *** COMMODORE BASIC 4.0 *** 

So BASIC 3.0 is BASIC 2.0 and vice versa... a simple 
case of mistaken identity. 

One last note: The main logic board that came with 
original PETs (BASIC 1.0) has only enough ROM sockets to 
allow upgrade to BASIC 2.0 (which most, if not all, of you 
have done already). Upgrade to BASIC 4.0 on these boards 
would require one more socket; the $B000 socket. The only 
way to accomplish this would be to connect the ROM via the 
memory expansion port. Otherwise a new board is necessary. 
BASIC 4.0 upgrades are certainly possible on all other boards 
as the $B000, $A000 and $9000 sockets are provided. 

Software Portability 

While on the subject of BASICs,... there have been 
several inquiries concerning the operation of Commodore 
software products from one BASIC version to the other. 
Visicalc and WordPro 3 will work on both BASIC 2.0 and BASIC 
4.0. WordPro 3 is for 40 column machines, but it will 
actually work on the 80 column. It looks rather odd but it 
works! However, most won't have this combination. 



The Transactor is produced on the CBM 8032 with 
WordPro IV Plus and the NEC Spinwriter. 
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The Commodore Assembler Developement Pak is now 
delivered with both versions included. If you already have 
the BASIC 2.0 Pak, just send the original diskette (serial 
numbered label!) back to Commodore in Toronto and we'll 
return it to you with both versions. 

As for other packages, the BASIC version number is 
included in the title of the software. If not, this implies 
correct operation on either BASIC 2 or 4. 

NEC Again 1 



WordPro 4 Plus has a new command that uses the 
superscripting and subscripting features of the NEC 
Spinwriter. Set the internal switches of the NEC as follows. 
( X = Do NOT Change) 

back board : SWl = 00101X11 

2nd from back board : SWl = 00000000 

SW2= 10100000 

SW3= 10100000 

Also see Pg 4, Transactor #12, and Pg 1, Transactor #11 
(Volume 2) for more information. 

MICROCHESS Conversion 

As everyone knows, MICROCHESS 2.0 only runs on PET/CBMs 
that have BASIC 2.0 ROMs. For those that have upgraded to 
the new BASIC 4.0, the following sequence of commands will 
convert MICROCHESS for operation with the new ROMs. 

1. LOAD "MICROCHESS" ; use ',8' for disk, 

do not use DLOAD 

2. POKE 1055,0 ; conversion done! 

3. SYS 4 ; break to m.onitor 

4. .S "MICROCHESS 4 " , 01 , 033A, 2000 ;SAVE to Tape #1 

do not use Tape #2 

.S "0:MICROCHESS 4 " ,08 ,033A, 2000 ;SAVE to disk drive 

drive #0 



OR 



Some copies of Microchess don't allow re-SAVing this 
easily! If yours is one of them, just issue the above POKE 
each time before playing. Don't re-SAVE over your 2.0 
version. Use a blank! 



8032 Reset Box 

Several programmers have aquired reset switches for 
their PETs to allow crash recovery and general resets without 
power-dovm. These switches usually come with a clip that 
connects to a line off the 555 timer on the rear right corner 
of the main logic board. On 40 column boards, this clip is 
placed on a resistor lead near the 555 timer as it tends to 
fall off the flat leads of the chip itself. 

The arrangement of the 8032 boards is somewhat 
different. To use these reset switches on the 8032, locate 
the 555 timer at the rear right of the board. Just to the 
right and forward a bit is a diode marked "C50" on the board. 
The clip should be connected on the side of C50 that is 
closest to the 555. 



PET Club de la Montreal 

Excuse my dreadful French. Last month I received a 
letter from K. H. King in Montreal. It read: 

Dear Karl J. , 

I would be most grateful if you would publish 
this letter or a condensed version in The 
Transactor . 

For some time now we have been without a PET 
Users Group in Montreal and I wonder if there are 
any PET owners who are still interested in having a 
club through which ideas can be exchanged, 
assistance given and in general support of all 
those who have a hobby interest in computers. 

If anyone is interested I would be very happy 
if they contacted me at the following address, or 
call m.e at (514) 842 7008 (home) or 844 6311 (Bus.) 

Keith H. King 

3450 Drummond St. Apt 701 

Montreal, P.Q. 

K3G 1Y3 

So c'mon you users with that wonderful accent!... Start 
a club! The Toronto Pet Users Group is now over 300 strong 
and still growing! 



Backup 

Screen Saver 

In the last Transactor (Vol 2. #12, pg 3) , a program was 
published that would store the contents of the screen in a 
PRG file on disk. Line 150 contains a bug a should be 
changed to: 

150 PRINT#8, CHR$(PEEK(J)) ; 

Anyone using this technique probably caught this error. 

8032 IRQ 

On page 40 of the same issue, a method of disabling the 
window reset sequence was presented. It involved redirection 
of the IRQ interrupt vector so that the home count was always 
set to zero no matter how many times the HOME key were 
pressed during an INPUT statement. It seems that upon 
exiting the monitor, the IRQ vector is set back to normal, 
making step 4 a waste of time. 

The code entered in step 3 works. Skip step 4, exit the 
montior, and change IRQ with: 

POKE 144,122 : POKE 145,2 

Set a window by positioning the cursor and hitting the 
•Z', 'A' and 'L' keys simultaneously. Now try and clear it! 
(Sorry 'bout that Ken) 

ROM Entry Points 

On page 34 of Transactor #12, an entry point table was 
published for all ROM versions. 16 lines from the bottom is 
a line that reads: 

F7DC F7BC F7DF Set output device from LFN. 

The BASIC 4.0 address (F7DF) should be changed to read F7FE. 
You might also want to change this on the same table on the 
reference page, centre of issue #12. (thanx Dave). 



Cross-Ref 

In Transactor #9, Volume 2, Jim Butterfield published a 
Cross Reference program (page 18) . Although nobody would 
think it possible, even Jim Butterfield can be hit by bugs 
(sorry Jim) . 

First erase lines 205 and 206. Now add " +L$ " to the 
end of line 200 and add line: 

315 IF C2=6 AND LEN(M$)<5 THEN M$=" "+M$ : GOT0315 



PHS Contest Results 

The winner of the PHS contest is: 

Larry I. Miller 
Regina, Saskatchewan 

In our last issue we held a contest for the shortest 
routine to do a PHS; push the stack-pointer onto the stack. 
We would like to thank all who submitted entries but we've 
changed our minds about the winner. Instead we've decided 
that all those who entered will receive free subscriptions 
with an extra Volume 3 going to the address of Larry's choice. 
Larry's entry was: 



1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 

9. 
10. 
11. 
12. 
13. 

14-r, 



08 
08 
48 
8A 
48 
BA 
8A 
18 
69 
9D 
68 
AA 
68 



04 
04 



01 



PHP 
PHP 
PHA 
TXA 
PHA 
TSX 
TXA 
CLC 
ADC 
STA 
PLA 
TAX 
PLA 
PLP 



#04 
$0104, X 



; dummy push 
;save flags 
;save .A (accumulator) 



;save .X register 
; stack pointer to , 
;and then to .A 

; restore SP value 
; store SP on stack 



,X 



17 bytes, 41 cycles 



;restore 
;restore 
;restore 



.X 
.A 
flags 



"All internal registers return with original 
contents. No memory is used except for the stack 
area. The value pushed onto the stack is equal to 
that of the Stack Pointer before the routine. At 
the end of the routine, SP is decremented like a 
true PUSH instruction." 

A variation of the above was submitted by Chuan Chee of 
St. Catherines, Ontario. By reversing steps 5 and 6, the 
Stack Pointer goes in .X before the original contents of .X 
(now in .A) are pushed on the stack. This just means that .X 
contains a value one greater than in Larry's implementation. 
Remember, the Stack Pointer starts at $FF (See note 1). Every 
PUSH decrements SP. To compensate, steps 9 and 10 become: 

9. 69 03 ADC #03 ; restore SP value 
10. 9D 03 01 STA $0103, X ;store SP on stack 

Other entries were shorter but incorrect. Many entries 
were correct but none as short and clean as 1st place. 
Nonetheless, free Volume 3 ' s go out to: 



Roger Burrows 
Nepean, Ont. 



David Berezowski 
Thunder Bay, Ont, 



Steve Punter James Yost c/o Eugenia Revas 
Mississauga, Ont. Somerville, MA 

John Macdonald ???, behalf of L. Miller 
Wawa , Ont . 

All 1194 of the other subscribers entries must have been 
lost in the mail. 

Note 1: The PET actually does a few PUSHes of its own during 
reset. SP decrements to $FA before the cursor flashes. Try 
reseting, then entering the monitor with SYS4. Notice SP at 
$F8 ? Now exit the monitor ('X' and RETURN) and re-enter it. 
SP is now two less than before. The SYS command puts a return 
address on the stack but exiting the M.L.M. does not take it 
off. Perhaps there is a reason for this but RUN or 7SYNTAX 
ERROR fixes everything. 

If you picture stack memory space in memory map format, 
that is low addresses at the top, high addresses at the 
bottom, you'll see that it operates like "a stack". Think of 
it like a stack of dishes. SP points at the location where 
the next dish will go. Initially this is the very bottom of 
the stack ($FF). As dishes are piled on the stack, SP goes 
higher (towards the low addresses). 



soioo 






01 






02 






03 






04 






05 






FB 




, 


FC 








FD 


-dish- 






FE 


-dish- 


! 


$01FF 


-dish- 


Stack starts here 



SP -> 



$0200 

Of course the last dish on is the first dish off. This 
is called 'LIFO' ; Last In First Out. But unlike dishes, the 
stack can only handle 256 entries so be careful. The stack 
pointer will "wrap around" if too many PUSHes are done. In 
this case the "dishes" at the bottom of the pile are replaced 
by new ones. If these were important return address dishes, 
you might find the whole machine comes crashing down. 

Those that attempted the exercise probably see how 
virtually useless a PHS intruction is. Understanding the 
stack is the main objective and coding a PHS does that rather 
effectively! 



The BMB String Thing ! 

This is the utility you've been waiting for ! It's a 
combination of two previous BMB utilities plus a new one 
that's just fantastic! Due to some tricky string 
manipulations, this utility will only work on BASIC 4 " 

1 . Block Get 



.0 



This is the INPUT# statement substitute. INPUT up to 255 
characters at one time. Works with any type file (SEQ, USR, 
RED . The best thing about using Block Get is that every 
character is retrieved; leading spaces, quotes, commas, colons 
and even CHR$(0). Two back-to-back carriage returns will 
crash the INPUT* command but this doesn't bother Block Getl 

Input stops on a carriage return (CHR$(13)). This can be 
changed to any other character that you wish to use as a 
delimeter i.e. binary 13 might represent some other data. EOI 
will also terminate input which is handy for REL file use i.e. 
trailing carriage return not required. If EOI comes in with a 
CHR$(0) the last character is chopped off. 

In SEQuential file operations you don't even need 
carriage returns (not suggested!). Block Get will continue 
getting characters until it has 255. At this point input 
stops allowing you to juggle the string. The next Block Get 
call starts with the next character from the file and goes 
again to 255 or EOI, whichever comes first. Remember to check 
ST after each call as is normal when INPUTting. 

A 257 byte buffer is required for BASIC 4.0 string 
structure. 

Format: 10 A$ = "" 

20 D0PEN#8, "SOME FILE" 

30 SYS 32514, 8, A$ 

40 PRINT A$ 

5 IF ST = THEN 30 

60 DCLOSE #8 

A$ need only be initialized once, eg. beginning of program. 

2. Instring 

Insert one string within another at position specified. 
The programmer is responsible for insuring that the string 
being inserted is not longer than the place it's going to. 

To insert A$ into B$ at position 10: 

SYS 32517 A$, B$, 10 

3. Position Search 

This one is fabulous. Search for the occurrence of one 
string within another string. If found, the position is 
placed in location 0; if not found, PEEK(O) = 0. Pattern 
matching capabilities (like the Commodore disks) can easily be 
incorporated into this routine. 



Format is: search for any occurence of A$ in B$ 

1. A$ = "ABCDE" 

2. B$ = "ABCDEFGHIJKLM" 

3. SYS 32520, A$, B$ 

4. PRINT PEEK(O) 

5. A$ = "FGHIJ" 

6. SYS 32520, A$, B$ 

7. PRINT PEEK(O) 

Try this using direct commands. Note: No other string 
operators are allowed after the SYS (i.e. MID$, LEFT$, STR$, 
etc. ) . 



Preparing For The BMB String Thing 

You should already have set up the utility before 
anything else is done. Since the utility sits in high memory, 
it must be sealed off so that BASIC can't clobber it. 



POKE 53,126 : CLR 

This POKE brings the top-of-m.emory pointer down, 
protecting it from other string operations. This BMB String 
Thing works in address space from $7E00 to $7FFF. If you have 
an assembler, type in the mere 3 pages of source and you can 
move it anywhere. 



1000 


FORJ= 


32514 TO 


32767 :READ X: 


1001 


POKE53,126 : CLR :REM ROUTINE 


1008 


DATA 


76, 


107, 


127, 


76, 


180, 


1016 


DATA 


127, 


32, 


245, 


190, 


32, 


1024 


DATA 


0, 


96, 


32, 


11, 


127, 


1032 


DATA 


0, 


200, 


177, 


68, 


133, 


1040 


DATA 


68, 


133, 


2, 


32, 


11, 


1048 


DATA 


133, 


136, 


200, 


177, 


68, 


1056 


DATA 


177, 


68, 


133, 


138, 


96, 


1064 


DATA 


197, 


47, 


144, 


28, 


165, 


1072 


DATA 


144, 


22, 


165, 


136, 


24, 


1080 


DATA 


137, 


144, 


2, 


230, 


138, 


1088 


DATA 


136, 


145, 


137, 


200, 


169, 


1096 


DATA 


96, 


32, 


11, 


127, 


32, 


1104 


DATA 


18, 


240, 


3, 


76, 


0, 


1112 


DATA 


96, 


32, 


91, 


127, 


133, 


1120 


DATA 


133, 


1, 


169, 


126, 


133, 


1128 


DATA 


127, 


32, 


55, 


127, 


166, 


1136 


DATA 


255, 


32, 


228, 


255, 


170, 


1144 


DATA 


21, 


160, 


0, 


145, 


1, 


1152 


DATA 


Ir 


192, 


255, 


240, 


4, 


1160 


DATA 


232, 


138, 


208, 


2, 


198, 


1168 


DATA 


255, 


160, 


0, 


165, 


1, 


1176 


DATA 


169, 


0, 


145, 


68, 


200, 


1184 


DATA 


68, 


96, 


32, 


20, 


127, 


1192 


DATA 


198, 


17, 


165, 


137, 


24, 


1200 


DATA 


137, 


144, 


2, 


230, 


138, 


1208 


DATA 


1, 


145, 


137, 


200, 


196, 


1216 


DATA 


96, 


32, 


20, 


127, 


169, 


1224 


DATA 


182, 


160, 


0, 


177, 


1, 


1232 


DATA 


12, 


200, 


196, 


0, 


208, 


1240 


DATA 


165, 


182, 


133, 


0, 


96, 


1248 


DATA 


2, 


230, 


138, 


230, 


182, 


1254 


DATA 


136, 


208, 


222, 


134, 


0, 



POKE J, X: NEXT 
PROTECTED 



127 
152 
177 

1 
127 
133 
56 
137 
101 
160 
255 
45 
191 
210 

2 
210 
201 
230 
164 

1 
145 
169 
32 
101 
160 







20 
24 
23 
16 



76 

189 

68 

200 

177 

137 

165 

197 

137 

1 

145 

201 

165 

169 

32 

32 

13 

1 

150 

32 

68 

126 

91 

17 



208 

17 

13 

23 

137 

182 











211 
160 
133 
177 

68 
200 
138 

46 
133 
165 
137 
165 

17 


37 
198 
240 
164 
240 
204 
200 
145 
127 
133 
177 
247 
133 
208 
182 
208 
197 



96 



BMBSTRIKGTHIMG PAGE 0001 

LIME# LOG CODE LIME 



0001 
0002 
0003 
0004 
C005 
0006 
CO 07 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
b027 
a028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
004/ 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
7F02 
7F02 
7F02 
7F05 
7F08 
7F0B 
7F0B 
7F0E 
7F11 
7F13 
7F14 
7F17 
7F19 
7F1B 
7F1C 
7F1E 
7F20 
7F21 
7F23 
7F25 
7F28 
7F2A 
7F2C 
7F2D 
7F2F 
7F31 
7F32 
7F34 
7F36 
7F37 
7F38 
7F3A 
7F3C 



GENERAL PURPOSE ROUTINES FOR THE PET/CBM SYSTEM 
REQUIRES A 257 CHARACTER BUFFER 
STARTING AT A PAGE BOUNDARY 



FOR 32K BASIC 4.0 ONLY 



4C 6B 7F 
4C B4 7F 
4C D3 7F 

20 F5 BE 

20 98 BD 

AO 00 

60 

20 OB 7F 

Bl 44 

85 00 

C8 

Bl 44 

85 01 

C8 

Bl 44 

85 02 

20 OB 7F 

Bl 44 

85 88 

C8 

Bl 44 

85 89 

C8 

Bl 44 

85 8A 

60 

38 

A5 8A 

C5 2F 

90 IC 



CHKCOM 

VARPAR 

FLTINT 

SYNERR 

LENl 

LEN2 

TEMPI 

TEMP2 

VARPTR 

INTEG 

CURE I L 

BUFFER 



$BEF5 

$BD98 

$C92D 

$BF00 

$00 

$88 

$01 

$89 

$44 

$11 

$D2 

$7E00 



STATUS = $96 
ARYEND = $2E 

* = $7F02 

• VECTOR TABLE 

JMP BLKGET 
JMP INSTRG 
JMP POSTRG 



CHKPAR JSR 
JSR 
LDY 
RTS 

FINDAB JSR 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 

FINDB JSR 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
RTS 

KILSTR SEC 
LDA 
CMP 
BCC 



CHKCOM 
VARPAR 
#00 

CHKPAR 
(VARPTR) ,Y 
LENl 

(VARPTR) ,Y 
TEMPI 

(VARPTR) ,Y 
TEMPl+1 
CHKPAR 
(VARPTR) ,Y 
LEN2 

(VARPTR) ,Y 
TEMP2 

(VARPTR) ,Y 
TEMP2+1 



TEMP2+1 

ARYEND+1 

NOKILL 



CHECK FOR COMMA 

EVALUATE EXPRESSION 

FLOATING PT TO INT 

? SYNTAX ERROR 

WORK SPACE 
I I 

I I 

I I 

CURRENT VARAIBLE POINTER 

INT VALUE FOR SYS 

CURRENT FILE NUMBER 

BLOCK GET BUFFER, MUST BE SEALED 

;OFF WITH POKE53 , 126 :CLR 

ST STORAGE 

END OF ARRAYS 

STARTS 2 BYTS IN DUE TO BUFFER 



; BLOCK GET - SYS 32514 
;INSTRING - SYS 32517 
;POS SEARCH - SYS 32520 

; CHECK FOR COMMA AND 
;SET UP POINTER TO STRING 



;FIND FIRST STRING 

; STORE STRING 1 LENGTH 

; STRING 1 ADDRESS LOW 



; STRING 1 ADDRESS HI 
;FIND ANOTHER STRING 

; STORE STRING 2 LENGTH 



; STRING 2 ADDRESS LOW 

; STRING 2 ADDRESS HI 

;GET RID OF OLD STRING 

; STRING IN TEXT? 
;YES, EXIT 



BMBSTRINGTHING PAGE 0002 

LINE* LOG CODE LINE 



0056 


7F3E 


A5 


89 






LDA TEMP2 




0057 


7F40 


C5 


2E 






CMP ARYEND 




0058 


7F42 


90 


16 






BCC NOKILL 




0059 


7F44 


A5 


88 






LDA LEN2 




0060 


7F46 


18 








CLC 




0061 


7F47 


65 


89 






ADC TEMP2 




0062 


7F49 


85 


89 






STA TEMP2 




0063 


7F4B 


90 


02 






BCC NOHIIN 




0064 


7F4D 


E6 


8A 






INC TEMP2+1 




0065 


7F4F 


AO 


01 




NOHIIN 


LDY #01 




0066 


7F51 


A5 


88 






LDA LEN2 




0067 


7F53 


91 


89 






STA (TEMP2) ,Y 




0068 


7F55 


C8 








I NY 




0069 


7F56 


A9 


FF 






LDA #$FF 




0070 


7F58 


91 


89 






STA (TEMP2) ,Y 


OLD STRING DEAD 


0071 


7F5A 


60 






NOKILL 


RTS 




0072 


7F5B 








• 
/ 






0073 


7F5B 


20 


OB 


7F 


FINDI 


JSR CHKPAR 


EVALUATE NUMERIC 


0074 


7F5E 


20 


2D 


C9 




JSR FLTINT 




0075 


7F61 


A5 


12 






LDA INTEG+1 




0076 


7F63 


FO 


03 






BEQ Rl 




0077 


7F65 


40 


00 


BF 




JMP SYNERR 




0078 


7F68 


A5 


11 




Rl 


LDA I NT EG 




0079 


7F6A 


60 








RTS 




0080 


7F6B 








• 

r 






0081 


7F6B 








. ** 

1 


BLOCK GET ROUTINE ** 


0082 


7F6B 


20 


5B 


7F 


BLKGET 


JSR FINDI ; 


GET FILE NUMBER 


008J 


7F6E 


85 


D2 






STA CURE I L 




0084 


7F70 


A9 


00 






LDA #<BUFFER 


GET BUFFER ADDRESS 


0085 


7F72 


85 


01 






STA TEMPI 




008b 


7F74 


A9 


7E 






LDA #>BUFFER 




0087 


7F76 


85 


02 






STA TEMPl+1 




0088 


7F78 


20 


25 


7F 




JSR FINDB ; 


FIND STRING VARIABLE 


0089 


7F7B 


20 


37 


7F 




JSR KILSTR ; 


KILL OLD STRING 


0090 


7F7E 


A6 


D2 






LDX CURE I L 




0091 


7F80 


20 


C6 


FF 




JSR $FFC6 ; 


SET INPUT DEVICE 


0092 


7F83 


20 


E4 


FF 


INLOOP 


JSR $FFE4 ; 


GET A CHARACTER 


0093 


7F86 


AA 








TAX ; 


SAVE CHAR IN .X 


0094 


7F87 


C9 


OD 






CMP #$0D ; 


CARRIAGE RETURN? 


0095 


7F89 


FO 


15 






BEQ VARSET ; 


YES, STOP INPUT 


0096 


7F8B 


AO 


00 






LDY #$00 




0097 


7F8D 


91 


01 






STA (TEMPI) ,Y 


STORE CHAR IN BUFFER 


0098 


7F8F 


E6 


01 






INC TEMPI 


INCREMENT LENGTH 


0099 


7F91 


A4 


01 






LDY TEMPI 


GET LENGTH 


0100 


7F93 


CO 


FF 






CPY #255 


MAX ? 


0101 


7F95 


FO 


04 






BEQ PRESET 




0102 


7F97 


A4 


96 






LDY STATUS 


•MORE CHARS? 


0103 


7F99 


FO 


E8 






BEQ INLOOP 


■YES, CONTINUE 


0104 


7F9B 


8A 






PRESET 


TXA 


;GET CHAR FROM .X 


0105 


7F9C 


DO 


02 






BNE VARSET 


?LAST CHAR CHR$(0) ? 


0106 


7F9E 


C6 


01 






DEC TEMPI 


;YES, DEC LENGTH 


0107 


7FA0 


20 


CC 


FF 


VARSET 


JSR $FFCC 


; CLOSE CHANNEL 


0108 


7FA3 


AO 


00 






LDY #$00 




0109 


7FA5 


A5 


01 






LDA TEMPI 




0110 


7FA7 


91 


44 






STA (VARPTR) ,Y 


;STOR LEN IN POINTER 
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BMBSTRINGTHING PAGE 0C"3 

LINE* LOG CODE LINE 



0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

012 8 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

014/ 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 



7FA9 

7FAA 

7FAC 

7FAE 

7FAF 

7 FBI 

7FB3 

7FB4 

7FB4 

7FB4 

7FB7 

7FBA 

7FBG 

7FBE 

7FBF 

7FC1 

7FC3 

7FC5 

7FC7 

7FC9 

7FCB 

7FCD 

7FCE 

7FD0 

7FD2 

7FD3 

7FD3 

7FD3 

7FD6 

7FD8 

7FD9 

7FDB 

7 FDD 

7FDF 

7FE1 

7FE3 

7FE4 

7FE6 

7FE8 

7FEA 

7FEG 

7FEE 

7FEF 

7FF1 

7FF3 

7FF5 

7FF7 

7FF9 

7FFB 

7FFD 

7FFF 

8000 



CB 

A9 00 
91 44 
CB 

A9 7E 
91 44 
60 



20 
20 
C6 
A5 
18 
65 
85 
90 
E6 
AO 
Bl 
91 
C8 
G4 
DO 
60 



14 
5B 
11 
89 

11 
89 
02 
8A 
00 
01 
89 

00 

F7 



INY 

LDA #<BUFFER 

ST A (VARPTR) ,Y 

INY 

LDA #>BUFFER 

ST A (VARPTR) ,Y 

RTS 



7F 
7F 



20 14 7F 
A9 00 
AA 

85 E6 
AO 00 
Bl 01 
Dl 89 
DO OC 
C8 

C4 00 
DO F5 
E6 B6 
A5 B6 

85 00 
60 

E6 89 
DO 02 
E6 8A 
E6 B6 
A5 B6 
C5 88 
DO DE 

86 00 
60 



. ** 

INSTRG JSR 
JSR 
DEC 
LDA 
CLC 
ADC 
STA 
BCC 
INC 

11 LDY 

12 LDA 
STA 
INY 
CPY 
BNE 
RTS 

J 

. ** 

POSTRG JSR 
LDA 
TAX 
STA 

LOOPP LDY 

PI LDA 
CMP 
BNE 
INY 
CPY 
BNE 
INC 
LDA 
STA 
RTS 

BUMP INC 
BNE 
INC 



; STORE POINTER LOW 



; STORE POINTER HI 



** 



INSTRING ROUTINE 
FINDAB ;FIND BOTH VARIABLES 
FINDI ;GET INSERT POSITION 
INTEG 
TEMP2 

INTEG 

TEMP2 

II 

TEMP2+1 

#$00 

(TEMPI) ,Y 

(TEMP2),Y ; TRANSFER BYTES 

LENl ;END OF INSERT 
12 ;N0, DO MORE 



P2 



INC 
LDA 
CMP 
BNE 
STX 
RTS 
.END 



POSITION 

FINDAB 

#$00 

$B6 
#$00 

(TEMPI) , 
(TEMP2) , 
BUMP 

LENl 

PI 

$B6 

$B6 

$00 

TEMP2 

P2 

TEMP2+1 

$B6 

$B6 

LEN2 

LOOPP 

$00 



SEARCH ROUTINE ** 
;FIND BOTH VARIABLES 

X REG = 
RESET POSITION 
ZEROIZE OFFSET 

Y ;GET CHAR AT A$,Y 

Y ;SAME AS CHAR AT B$,Y ? 
NO, MOVE TO NEXT A$ CHAR 
YES, INCREMENT Y 
SAME AS LEN OF A$? 
NO, MORE CHARS TO COMPARE 
YES, BUMP POSITION 
AND STORE IT 
IN LOCATION 

;MOVE TO NEXT CHAR IN B$ 



;BUMP POSITION 

END OF B$ ? 

NO, DO MORE COMPARES 

NOT FOUND 



ERRORS = 0000 
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Machine Code TO DATA Statements 

This small program, can be used to take bytes out of 

memory and put them into DATA statements. The program is self 

modifying. Once complete, the program, itself must be removed 
from text, leaving the DATA statements behind. 

Line 3 prompts for the starting DATA line num.ber. This 
should obviously be out of the line range of the program. 
Line 4 prompts for how many bytes per DATA statement. The 
number of bytes extracted from memory will be the difference 
of the starting line number and the ending line number. 

This program is an adaptation from one written by Dave 
Middleton, Commodore U.K. 



1 INPUT " STARTING ADDRESS IN DECIMAL ";AD 

2 INPUT " ENDING ADDRESS IN DECIMAL ";EN 

3 INPUT " STARTING LINE NUMBER 1000 [CL CL CL CL CL CL]";LN 

4 INPUT "# OF BYTES/DATA LINE (MAX 13) 8[CL CL CL]";NB 

5 PRINT" [CLR] "LN;"FORJ="AD;"TO"EN;":READ X:POKE J ,X:NEXT:END" : J=NB:G0T016 

6 IF AD>EN THEN PRINT" [CLR] DONE. NOW ERASE GENERATOR" : END 

7 FOR J=l TO NB 

8 V=PEEK{AD) : AD=AD+1 

9 S$=STR${V) 

10 A$=A$+RIGHT$(" "+S$,4) 

11 IF AD>EN THEN LN=LN-NB+J : G0T014 

12 IF J<NB THEN A$=A$+"," 

13 NEXT J : J=J-1 

14 A$=STR$(LN)+" DATA"+A$ 

15 PRINT" [CLR] "A$ 

16 PRINT"AD="AD; " :EN="EN; " :LN="LN; "+"J; " :NB="NB; " :G0T06" 

17 POKE 158, 3 : POKE 623,19 : POKE 624,13 : POKE 625,13 : END 
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PET BASIC Label Support Interface; Revisited 

In Transactor #12, Volume 2, J. Hoogstraat of Calgary 
submitted an excellent routine which allows alpha labelling of 
BASIC statements. This routine is most useful when developing 
software. By labelling your subroutines with words, a 
renumber operation doesn't force you to remember a whole new 
set of line numbers. When developement is complete, the 
labels can be swapped back to line numbers using a 
"find/change" function like in 'The Toolkit' or •AID4'. 

The routine published last issue was for BASIC 2.0. Here 
are two new versions for BASIC 4.0; one for use with cassette 
and the other for use with disk. 

Recall that BASIC 4.0 disk commands (eg. DOPEN, BACKUP, 
SCRATCH, etc.) use parts of the 2nd cassette buffer which 
would clobber any machine language set up there previously. 
Use the version that resides in the 1st cassette buffer (634 
to 816) if any of these disk commands are coded elsewhere in 
your program. 

On the other hand, cassette users will probably want to 
use cassette port #1 which prohibits using cassette buffer #1 
for anything else. In that case, use the version that resides 
in the 2nd cassette buffer (826 to 1008). It will be safe 
there so long as no 4.0 disk commands get executed. 

The version you choose will determine the SYS address 
used to engage the routine into BASIC (see example) 



10 SYS63 4 :REM USE SYS826 FOR 2ND CASSETTE BUFFER 

20 : 

100 FOR 1=1 TO 3 

110 ON I GOSUB #SUB1, #SUB2 , #SUB3 

120 NEXT 

130 GOTO #ALLDONE 

140 : 

150 #SUB1: PRINT "SUBROUTINE", -I : RETURN 

510 : 

550 #SUB2 

560 PRINT"SUBROUTINE";I : RETURN 

570 : 

6 00 #SUB3 : PRINT"SUBROUT" ; I : RETURN 

610 : 

800 #ALLDONE : PRINT "END OF TEST" : END 
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The Commodore 8010 Modem Gord Campbell, Toronto 

Hurray! It works! In fact, the main benefit of the 

Commodore Modem (CBM 801C) is that it is so easy to use. You 

just take it out of the box, plug it in, attach an IEEE 488 
cable, and you have completed the installation. 

But what does it do? It allows the PET or CBM to 
communicate with other 'similar' devices. Thus you can 
communicate with not only another PET with a modem, but also 
with mainframe computers or a wide variety of terminals. The 
only restriction is that the other end must also run at 300 
baud (30 characters per second), and be 'BELL-103' 
compatible. Since BELL-103 is the North-American standard, 
this is not a . restriction. Most terminals these days support 
300 baud: the major exception is the good OLD Teletype. 

To establish communications, one end phones the other, 
agreement is made on who will run in answer mode, and both 
ends place their telephone handset in the cups in the top of 
the modem. The modems sing away at each other, sending and 
receiving characters. 

Like any device on the PET, it doesn't do anything 
without a program, but that isn't a big deal. In the 11 page 
manual are listings of programs to do PET-to-PET or 
Pet-to-mainframe communications, as well as a program which 
helps to pin down any problems which might occur. 
Unfortunately, at least one of these has a bug (take line 240 
out of the terminal program) . Since many of the people who 
might like to use the PET as a terminal have no interest in 
programming, it would have been nice to have a tape right in 
the box. Presumably any dealer who is selling modems has 
working versions of the programs. 

The most difficult concept to grasp in programming for 
the modem is that the program must handle events which are 
coming from, an external source, possibly quite quickly. For 
example, a mainframe computer will send characters to you at 
the rate of 30 per second. If you fall behind in processing 
them, you miss a few. A BASIC program to accept characters 
from the modem and write them to disk must be structured for 
speed or it will lose some. This will be less of a problem 
if the other end is producing characters at someone's typing 
speed. Any extra overhead which slows down program.s (such as 
DOS support) will make the problem worse of course. 

The commands used in programming the modem are the same 
as for other devices (OPEN, CLOSE, PRINT#, GET#, and INPUT#) . 
Thus it should be simple to set up two-player games by phone. 
One of my desires is a program to play bridge by phone: me 
and the PET versus a friend and his computer. The computers 
would get to do all the dull stuff like deal, keep score, and 
be dummy. The only clever things they would have to do is 
bid and play defense. The easy part of such a program would 
be the part handling the modem. 
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The price of the modem does seem a little steep (about 
$600), but this is a professional, well-integrated 
peripheral. The owners of the other two major personal 
computer systems have to pay about the same amount to obtain 
the officially-approved equivalent capability. The only 
reason that it seems so much is that there are other ways to 
get communications without paying as much. Unfortunately, the 
other ways are not nearly so easy to use. 

Are there any complaints? A couple of minor ones, but 
no big deal. The Commodore modem does not allow sending a 
true 'break'. Many large computers accept a break (which is 
not a character as such) to stop them from doing what they 
are doing. For example, if you are editing a large file 
using IBM's TSO (time sharing option), and you accidentally 
say LIST, you will have to wait a long time before you can 
enter another command. (This can be overcome by telling TSO, 
1. don't send more than say 20 lines without giving me a 
shot, and 2. if I send you a certain character string, take 
that to be a 'break'). 

Finally, the main thing which makes the modem so easy to 
use (the IEEE bus), can be a drawback at times. For example, 
it is very difficult to use the modem and the printer at the 
same time. This is because the printer will not accept the 
first character of a line until it has finished printing the 
previous line. By the time your program continues, you have 
lost characters. This could have been avoided by giving the 
modem a fair sized buffer, but that would have made the price 
even higher. 

In summary, if you want to add data communications to 
the PET, the Commodore modem deserves consideration. For 
hassle-free installation and operation, it is probably your 
best choice! 



Editor's Note 



Two excellent machine language modem drivers have been 
sent to all Canadian Commodore dealers (CEAB #6 disk) . These 
are free for copying to any customer but they will only work 
the 8010 modem. 



Spooling Disk Files to Printers 

In Compute #8 , T.M. Peterson published a neat trick for 
getting the 2040 disk to talk to a printer without PET/CBM 
supervision of the IEEE bus. I imagine this would work for 
4040s, 8050s and any make printer interfaced via the IEEE bus, 
but naturally I can't be sure for all cases. However, the 
idea was so incredible that I felt it definitely worth 
repeating. 

Everyone knows how to LIST a program to the printer. But 
long listings can wear patience thin, especially on a slow 
printer! Not only that, but while your printer is chugging 
along, the PET just sits there with everthing disabled except 
RUN/STOP. Wouldn't it be nice if the disk fed the printer 
while you continue editing or play a quick round of space 
invaders or Microchess, that is if you can bear some of those 
arrogant printers. By the way, those wing nuts on the bottom 
of Commodore 202X printers... take them out. They're only 
shipping screws that hold the mechanism tight. Once removed, 
the noise level is reduced considerably. 

First a file must be created on disk. This could be any 
SEQ file with any contents that are printer recognizable, but 
for now we'll create one of a program LISTing. 

1. Enter some small program 

2. OPEN 8,8,8, "OrTEST SPOOL, S,W" : CMD8 : LIST 

3. PRINT#8,""; : CLOSES 

4. NEW 

5. OPEN 8,8,8, "OrTEST SPOOL" ;defaults to ',s,r' 

6. POKE 165,72 : SYS 61695 ;use SYS 61668 

7. POKE 165,104 : SYS 61695 for BASIC 2 

8. OPEN 4,4 : CMD4 : POKE 176,3 : POKE 17 4,0 

On hitting return the printer should fire up and continue 
at full speed to the end of the file. At this point your 
cursor might be acting funny (try hitting return on a blank 
line). To stop this, POKE 14,0 for BASIC 2.0 or POKE 16,0 for 
BASIC 4.0. If you're lazy like me, invoking a couple of 
?SYNTAX ERRORS (eg. ' = ' and Return) will do the same thing. 
However, to restore normal cursor operation under program 
control (yes program control!), you would have to use the 
POKE. More on this in upcoming paragraphs. 

Once the printer starts, don't try using the IEEE bus or 
the spool will abort. When its all finished you can CLOSE the 
open disk file by sending an Initialize command or with: 

OPEN 1,8,8 : CLOSE 1 

A filename isn't necessary, but use the same secondary 
address as in step 5. 

The NEW command at step 4 is only for clarity. Instead 
you might load another program or just leave the current one 
in for further editing. You can RUN the program in memory and 
even use the cassettes, but they're still as slow as before. 
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The example here uses all direct commands but they could 
just as easily be put in a program. Think of the 
applications! In a user oriented system, a report could be 
output to the disk and immediately spooled to the printer 
while the operator continues working on the next task. Of 
course the user might inadvertently try a bus operation which 
would kill everything. Fortunately this busy state can be 
detected using the following "trap": 

100 IF (NOT(PEEK{59456) )) AND 64 THEN 100 
110 OPEN 1,8,SA : CLOSE 1 
130 ...and continue 

If a spool is in progress, line 100 will loop back to 
itself until the bus is free. Line 110 is for closing the 
disk file and also turns off the active LED. SA is a variable 
containing the secondary address which might be used in coding 
the OPEN command that starts the operation. Also note that 
line 110 causes no disk activity so there's no need to go 
around it to save time. 

Theory and Variations 

This example uses device number 8 right through. 
However, you might have more than one disk on line which would 
mean a different device number. In step 6, address 165 (the 
IEEE output buffer) is POKEd with 72. This number (72) is 
derived from 64 + 8, where 8 is the device number. For 
versatility, this '8' might be replaced by a variable like DV. 

The following SYS activates the ATN line on the bus 
telling all devices to 'pay attention'. The contents of 165 
are then sent to the bus but only the device that has a 
matching 'talk' address responds, in this case device 8; the 
disk. 

The disk is ready to start sending but from where? All 
it needs now is the secondary address of the OPENed file. 
Step 7 sets up the output buffer with the secondary address 
plus 96. Since 8 was chosen, the result is 104. This step 
might also be modified to read POKE 165,96+SA. 

Nothing happens yet because the ATN line isn't released 
by the PET. When CMD4 is executed (step 8), the printer 
becomes the output command device. PET releases ATN, the disk 
starts talking and the printer listens. 

POKE 176,3 tricks the PET into thinking the output 
command device is the screen and POKE 17 4,0 simulates no files 
OPEN. In a program you would have to re-open files (eg. 
command channel, modem, etc.) at spool completion. By the 
same token, you might want to CLOSE any open write files 
before starting. 

Should anyone discover any useful variations to this 
technique, let us know. We'll be glad to here about it! 



POKE OPEN Files 

If a file is OPENed from a program and a PSYNTAX ERROR 
occurs before the program gets a chance to CLOSE it, you can 
still CLOSE it from the keyboard using a direct command (i.e. 
CLOSE If) . But if you edit the program before CLOSing, 
you'll find this is no longer possible. 

Editing essentialy does a CLR which also aborts all file 
activity. However, nothing is sent to the disk to close its' 
open files. If these were 'read' files, send an Initialize 
or Catalog command and the disk is back to normal. 

OPEN 'write' files are a different story. If they 
aren't CLOSEd properly, a number of nasty conditions can 
occur that are no fault of the DOS. 

All disk files (PRG, SEQ, REL or USR) are created by 
recording data in sectors around the disk and then linking 
them together using two bytes to store the track and sector 
co-ordinates of the next sector in the chain. The first link 
is stored in the directory as soon as the file is OPENed for 
write. As successice sectors are written, successive links 
are also recorded (first two bytes of sector). Thus the 
directory points at the first sector, the first sector points 
at the second, and so on. 

When the DOS closes a write file, an 'end marker' is 
recorded in the last sector. This is characterized by 
setting the track byte to zero (since there is no track 0) , 
and pointing the sector byte at the last character recorded. 
If the file is not closed, this end marker never gets stored. 
An "open chain" condition results. 

Blocks that haven't been used contain all zeroes. The 
previous link would point at two zeroes which is ok. 
However, blocks that have been used and then freed due to 
some earlier scratch operation, still contain old links. If 
an open chain points at one of these, a "phantom chain" is 
created. This can be deadly! 

Consider a Scratch operation on an improperly closed 
file. The DOS would follow the chain, releasing sectors to 
the BAM (Block Availability Map) right up to the point where 
the write was aborted. But if a phantom chain exists, the 
DOS continues along the chain releasing more sectors which 
might lead right into a good file! In the next write 
operation, the DOS might select one of these sectors and 
clobber live data (BLECCH!). 

Fortunately we have the Validate or Collect command. A 
Collect will discard improperly closed files, freeing all 
sectors that do not belong to a chain and allocating all 
sectors that do. Collect also frees any allocated direct 
access blocks, which may not be too desirable. Besides that, 
an 8050 Collect operation can take awfully long if your 
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directory contains many entries. Wouldn't it be nice if we 
could just CLOSE that pesky open file, scratch it, and start 
all over?! 

Well,... you can! As long as the disk is not disturbed 
by a Catalog, reset, etc. When the PET aborts external file 
activity due to editing, a CLR, etc., it merely sets the 
number of OPEN files to zero (address 174). All file 
parameter tables are left in tact (addresses 593 through 
622) . These files can be ressurected as long as no new files 
have been OPENed. 

POKE 17 4, X 

... where 'X' is the number of OPEN files. If you don't know 
how many files were OPEN, simply POKE 174,10. This sets it 
to maximum at which point even some properly CLOSEd files 
would now be OPEN again! Now you can issue any necessary 
CLOSE commands directly from the keyboard and exterminate 
those disk gremlins that show up as an asterisk beside the 
file type. 

Although this will get you out of a jam, it is not 
suggested practice! CLOSing disk files properly will reduce 
knashing-of-teeth and pulling-of-hair considerably! (right 
Jim?) 



Some Commodore Disk Utilties 

The following routines are for use with 4040 and 8050 
disk units. 

The first two are for reading the disk ID from the 
specified drive DR, device DV. Line 150 sets the drive. Line 
160 sets the track. Line 170 tells the disk to read any 
header on track 18. Initializing not necessary! 18U, 190 and 
200 wait for the DOS to finish the read. Line 210 does any 
error processing (i.e. read error or no disk in drive). The 
first character of the ID is read from DOS memory (line 220) 
and the DOS puts it in the command channel. Line 250 reads 
the second character and both characters are put in 'ID$'. 

This routine is particularly usetul (and fast) to see if 
the user has placed a disk in the drive. It can also be used 
to detect insertion of incorrect diskettes. The software 
would have to anticipate ID numbers, perhaps ID's that were 
selected by the program, in an earlier formatting operation. 

The second two will return the BLOCKS FREE count BF, from 
the specified drive DR, device DV. BF is reset before 
entering. Initialize is necessary here! The block free count 
is not stored on the disk but rather calculated from the Block 
Availibilty Map. Line 170 sends the DOS oft to that routine 
in disk ROM! The result is placed in disk RAM where it is 
read, once again, into the command channel by lines 18U and 
210. A few calculations and presto! Block Free! 

Knowing blocks-free from within a program can be 
especially useful for anticipating the nasty DISK FULL error. 

Versions for both 4040 (DOS 2.0) and 8050 (DOS 2.5) have 
been provided. The fifth program was written by John Collins 
of the U.K. It's the definitive subroutine for determining 
host equipment. 



100 REM ID READER FOR 4040 



110 ID$="" 
120 DR=0 
130 DV=8 



REM RESET ID$ 

REM DRIVE # 

REM DEVICE # 
140 OPEN15,DV,15 : REM UNLESS ALREADY OPEN 
150 PRINT#15,"M-W"CHR$(18) CHR$(0) CHR$ (1) CHR$ (DR) 
160 PRINT#15,"M-W"CHR$(43) CHR$ (16) CHR$ (1) CHR$ (18) 
170 PRINT#15,"M-W"CHR$(4) CHR$ (16) CHR$ (1) CHR$ (176+DR) 
18U PKINT#15,"M-R"CHR$(4) CHR$(16) 
190 GET#15,X$ 

200 IF ASC(X$)>127 THEN 180 

210 IF ASC(X$)<>1 THEN PRINT#15 , "M-E"CHR$ ( 37) CHR$ ( 217 ) : PRINTDS ,DS$ : END 
220 PRINT#15,"M-R"CHR$(41)CHR$(16) 
230 GET#15,A$ 
240 ID$=A$ 

2 50 PKINT#15 , "M-R"CHR$ ( 42) CHR$ (16) 
260 GET#15,A$ 
270 ID$=ID$+A$ 
280 PKINTID$ 
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100 REM ID READER FOR 8050 

110 ID$="" : REM RESET ID$ 

120 DR=0 : REM DRIVE # 

130 DV=8 : REM DEVICE* 

140 OPEN15,DV,15 : REM UNLESS ALREADY OPEN 

150 PRINT#15,"M-W"CHR$(18) CHR$(0) CHR$ (1) CHR$ (DR) 

160 PRINT#15,"M-W"CHR$(43) CHR$ (16) CHR$ (1) CHR$ (18) 

170 PRINT#15,"M-W"CHR$(4) CHR$ (16) CHR$ (1) CHR$ (176+DR) 

18U PKINT#15,"M-R"CHR$(4) CHR$(16) 

190 GET#15,X$ 

200 IF ASC(X$)>127 THEN 180 

210 IF ASC(X$)<>1 THEN PRINT#15 , "M-E"CHR$ (179) CHR$ (23 8) :PRINTDS,DS$:END 

220 PRINT#15 , "M-R"CHR$ ( 41 ) CHR$ (16) 

230 GET#15,A$ 

240 ID$=A$ 

250 PRINT#15,"M-R"CHR$(42)CHR$(16) 

260 GET#15,A$ 

270 ID$=ID$+A$ 

280 PRINTID$ 



100 REM SUBROUT. RETURNS BLOCKS-FREE FOR DOS 2.0 

110 DR=0 : REM DR = DRIVE # 

120 DV=8 : REM DV = DEVICE* 

130 BF=0 : REM RESET BLOCK FREE COUNT 

140 OPEN15,DV,15 : REM UNLESS ALREADY OPEN 

150 PRINT*15,"I"+STR$(DR) : REM UNLESS ALREADY INIT'D 

160 PRINT#15 , "M-W"CHR$ (18) CHR$ (0) CHR$ (1) CHR$ (DR) 

170 PRINT*15,"M-E"CHR$(52)CHR$(219) 

18U PKINT#15,"M-R"CHR$(119)CHR$(67) 

190 GET*15,A$ 

200 BF=ASC(A$+CHR$(0) ) : REM IN CASE A$="" 

210 PRINT#15,"M-R"CHR$(120)CHR$(67) 

220 GET#15,A$ 

230 BF=BF+ASC(A$+CHR$(0) )*256 

240 PRINT BF 



100 REM SUBROUT. RETURNS BLOCKS-FREE FOR DOS 2.5 (8050) 

110 DR=0 : REM DR = DRIVE * 

120 DV=9 : REM DV = DEVICE* 

13 BF=0 : REM RESET BLOCK FREE COUNT 

140 OPEN15,DV,15 : REM UNLESS ALREADY OPEN 

150 REMPRINT*15,"I0" 

160 PRINT#15 , "M-W"CHR$ (18) CHR$ (0) CHR$ (1) CHR$ (DR) 

170 PRINT#15,"M-E"CHR$(231)CHR$(211) 

18U PKINT#15,"M-R"CHR$(158)CHR$(67) 

190 GET#15,A$ 

200 BF=ASC(A$+CHR$(0) ) : REM IN CASE A$="" 

210 PRINT#15/'M-R"CHR$(160)CHR$(67) 

220 GET#15,A$ 

230 BF=BF+ASC(A$+CHR$(0))*256 

240 PRINT BF 
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100 REM VERSION TEST FOR PET/CBM AND DISK 

110 REM BY: JOHN COLLINS 

120 REM PET/CBM TEST TP ; 

liO REM 2001 BASIC 1.0 = 

140 REM 2001 BASIC 2.0 = 1 

150 REM 4032 BASIC 4.0 = 2 

160 REM 8032 BASIC 4.0 = 3 

170 : 

18U A=PEEK(57345) :TP=0:IF A THEN TP=1 : IF A AND 1 THEN TP=3:IF A AND 4 THEN TP=2 

190 : 

200 REM DISK TEST TD; 

210 REM 2040 (DOS 1.0) =1 

220 REM 4040 (DOS 2.0) =2 

230 REM 8050 (DOS 2.5) = 3 

240 : 

250 OPEN 15, 8, 15 

260 PRINT#15,"M-R"CHR$(255)CHR$(255) 

27 GET#15, A$ 

280 CLOSE 15 

290 A=ASC(A$) :TD=1:IF A AND 16 THEN TD=3 : IF A AND 1 THEN TD=2 

300 : 

310 REM RESULTS: 

320 PRINT TP, TD 
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Cursor Coding 

Publishing programs is one main function of The 
Transactor. But publishing legible code is important too. 
Using the Spinwriter does this well but it won't print any of 
the special graphic characters that make their way into so 
many programs. The following method of representing graphics 
will be used in The Transactor: 



1. 
2. 

3. 
4. 



Examples 



Square brackets ("[CL]") within quotes indicates 

cursor graphics. 

Where necessary, successive apostraphes (') will 

be enclosed in square brackets to represent 

successive spaces. 

Any other graphics will be converted to their CHR$ 

equivalents to accomodate business keyboard users. 

Special 8032 screen operators will also be 

represented by CHR$. 



tCLR] 
[HOME] 
[UP]" 
[DN] " 
[CL] " 
[CR]" 
[RVS]" 
[OFF] 
[ ■ ] 



II _ 



II _ 



II _ 



"[CLR DN DN DN]" 

"[CL CL CL] " 
"[RVS • • • ' ' OFF] " 

"[CL ']" 



clear screen 
cursor home 
cursor up 
cursor down 
cursor left 
cursor right 
reverse mode on 
reverse mode off 
1 space 



= clear screen followed by 3 
cursor downs, no spaces. 

= three cursor lefts, no spaces 

= reverse mode on, 5 spaces, 
reverse oft 

= 1 cursor left, 1 space 
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Tax Ontario 1980 

Here it is ! Jim Butterf ields income tax return program 
for 1980. If you still have one of Jims earlier tax programs, 
pull it out and you may avoid a lot of unecessary typing. The 
program will work on any BASIC, 8K minimum. It also 
calculates your tax refund (or payment as the case may be) to 
the penny! Mo unfair rounding the way the tax tables in the 
book do it. 



100 DIMC(5) ,F(5) ,D(13) :REM V3 . APR3/81 

120 PRINT" [CLP. DNJONTARIO INCOME TAX 1980 TAXATION YEAR" 

130 PRINT"['' RVS]J BUTTERFIELD" 

140 FORJ=lTO90 :IFPEEK(J+32768) =32THENNEXTJ 

150 L=J 

16 INPUT" [DN] INSTRUCTIONS";Z$:IFASC(Z$)=7 8GOTO240 

170 PRINT" [DN] ONTARIO INCOME TAX FOR 1980" 

18U PRINT" [DN] FOLLOW YOUR FORM: THIS PROGRAM WILL" 

190 PKiNT"HELP WITH THE ARITHMETIC." 

200 PRINT" [DN]FOR 'NIL' ITEMS, JUST PRESS 'RETURN'." 

210 PRINT" [DNjFOR 'MULTIPLE' ENTRIES, ENTER AMOUNT" 

220 PRINT"AND PRESS '+' INSTEAD OF 'RETURN' TO" 

230 PRINT"SIGNAL MORE ITEMS TO COME.[DN]" 

240 INPUT" PRINTER (Y/N) " ; Z $ : IFASC ( Z $) =89THENOPEN2 , 4 : P5=-l 

250 DEFFNS(M)-(M+S-ABS(M-S) )/2 

26 DEFFNB(M) =^ (M+B+ABS (M-B) )/2 

270 DEfFNP(M) ==INT(M*P/100 + .49) 

280 DEFFNI(M)=INT(M*100+.5) 

290 GOSUB1340 

300 P1=1:GOSUB1440 

310 I$="INCOME FROM EMPLOYMENT" :GOSUB1490 

320 P=3:E=5E4:GOSUB1380:I=FNS(FNP(I) ) :I$="LESS EMPLOYMT EXPENS" :GOSUB1400 

330 I$="*NET EMPL EARNINGS" :GOSUB1420 

340 I$="DIVD FROM CDN CORP" :GOSUB1510 

350 D(0)=I:I$="INTEREST & INV INCM" :GOSUB1510 

360 D(1)=I:I$="CANADIAN CAPITAL GAINS" :GOSUB1510 

370 D(4)=I:I$="ALL OTHER INCOME" :GOSUB1510 

3 8U I$="**TOTAL INCOME**" :GOSUB1420 

3 90 D(2)=I:P1=2:GOSUB14 40:GOSUB1720 

400 PRINT"LESS: " :G0SUB13 80 : I$="CPP CONTRIBUTIONS" :GOSUB1490 

410 I$="UIC PREMIUMS" :GOSUB1510 

420 I$="OTHER DEDUCTIONS" :GOSUB1510 

430 I$=" *TOT DEDUCTIONS: ":GOSUB1420 

440 I=C(C):I$-" *NET INCOME* " :D ( 3 ) =1 :G0SUB17 20 

450 PRINT" [RVS] EXEMPTIONS: ":GOSUB13 80 

460 I==289E3 :I$=-"BASIC EXEMPTION" :G0SUB16 80 

470 I$="AGE EXEMPT" :COSUB1510:I$="MARRIED EXEMPT" :GOSUB1510 

480 I$="DEPNDT CHILD EXMPT" :GOSUB1510 : I $="OTHER EXMPT" :GOSUB1510 

490 I$=" *TOTAL EXEMPT*" :GOSUB1420 : D ( 12) =1 

500 I$=" **LINE 46**":GOSUB1660 

510 GOSUB13 80:GOSUB1360:I$="MEDICAL EXPENSES" :GOSUB1490 

520 IFl=0GOTO550 

530 GOSUB1380:P=3:I=FNP(D{3) ) :I$="*LESS 3% N. I . " :GOSUB1400 

540 I$="ALLOWABLE MED EXP" :GOSUB1660 

550 I$="CHARITABLE DONATNS" :GOSUB1510 : I=C (C) 



560 C=C-1:B=1E4:I=FNB(I) : I$="**STANDARD DEDCTM**" :G0SUE16 8U 

57 S=1E5:I=FNS(D(0)+D(1)+D{4) ) :D(10)=I 

580 IFl>OTHENI$="*I, D & CG DEDUCTION" :GOSUB1700 

590 I$="ALL OTHER DEDUCTIONS" :GOSUB1510 

600 I$="**TOTAL DEDUCTIONS" :GOSUB1420 

610 I$=" **TAXABLE INCOME**" :GOSUB1660 :D ( 5) =1 :G0SUB1 840 

620 IFi<=30E5ANDD(0)=0THENPRINT"YOU MAY USE TAX TABLE .. OR..." 

630 P1=1:GOSUB1460 

640 DATA108360, 35849, 43 

650 DATA70434, 21058, 39 

660 DATA43344, 11306, 36 " [CLR] " = clear screen 

670 DATA25284,5526,32 "[HOME]" = cursor home 

680 DATA19866,4009,28 "[UP]" = cursor up 

690 DATA16254,3106,25 " [DN] " = cursor down 

700 DATA12642,2276,23 " [CL] " = cursor left 

710 DATA9030,1517,21 " [CR] " - cursor riglit 

720 DATA5418,831,19 "[RVS]" = reverse mode on 

730 DATA3612,506,18 "[OFF]" = reverse mode oft 

7 40 DATA1806,199,17 "[ ' ]" = 1 space 

750 DATA903,54,16 

760 DATA0,0,6 

77 DATA-1 

780 READX,Y,P:IFI<X*100GOTO780 

790 T=Y*100:P$="ON FIRST $"+STR$(X)+" TAX IS "+STR$? ( Y ) :GOSUBl 820 

800 J=I-X*100:1=FNP(J) 

810 P$="ON RMG $"+STR$ (J/100) +" TAX AT"+STR$ ( P) +"% IS $"+STR$ ( l/lOO ) 

820 GOSUB1820 

830 I = I+T:GOSUB1340:C=C-1:I$ = "TOTAL FED INCM TAX" :G0SUB16 8Ll 

840 S=I:P=25: I=FNS(FNP(D(0) ) ) :D(11)-I 

850 IFi>0THENGOSUB1380:I$="DIV TAX CREDIT" :GOSUB1400 

860 I$=" *BASIC FEDERAL TAX*" : I=C (C) :G0SUB17 20 :G0SUB1 840 :D ( 6 ) =1 

870 IFK2E4GOTO900 

880 lFi<=2222E2THENI=2E4 :GOTO900 

890 P=9:S=5E4:I=FNS(FNP(I) ) 

900 G0SUB13 80: I $= "GENERAL TAX REDUCTION" :GOSUB1400 

910 I$=" **FEDERAL TAX**" :GOSUB1660:D(7)=I 

920 GOSUB13 80:I$="FOREIGN TAX PAID" :GOSUB1510 : IFI-0GOTO980 

93 V^=I:I$ = "FORGN INCOME" :GOSUB1510 :K = I :X= (D ( 3 ) -D ( 1 0) ) / 1 00 : Y= (D (7 ) +D { 11 ) ) /lOO 

940 S=INT(K/X*Y) 

950 P$=STR$(K/100)+"/"+STR$(X)+"*"+STR$(Y)+" ="+STR$ ( S/1 00 ) :GOSUB1820 

960 I=FNS(W) :I$=" — DEDUCT :" :GOSUB1400 

97 PKiNT".. ANOTHER COUNTRY. .." :GOTO920 

980 C=C-1:I$="FEDERAL TAX PAYABLE" :GOSUB1420 : D ( 8) -I :G0SUB1 840 

990 D1=D(6) :IFD(5)<182E3THENDl-0 

1000 P=44:I=FNP(D1) 

1010 I$="BASIC ONTARIO TAX" :G0SUB17 20 : D ( 9) -I 

1020 READX:IFX<>-lGOTO1020 

1030 P$=" ==ONTARIO PROPERTY & SALES TAX-- " :G0SUB1 820 :C0SUB13 40 

1040 INPUT"ARE YOU ELIGIBLE FOR THESE CREDITS Y[CL CL CL]";Z$ 

1050 IFASC(Z$)<>89GOTO1170 

1060 I$="TOTAL RENT PAYMENTS" :GOSUB1490 : IFI=0THENC=C-1 :GOTO10 8U 

1070 P=20:I=FNP(I) :I$="*20% OF RENT" :GOSUB1400 

1080 I$="PROPERTY TAXES&COLLG RES" :GOSUB1510 

1090 I=C(C) :P=10:X=FNP(I) : I$="*OCCUPANCY COST*" :GOSUB1420 iGOSUBl 840 :C (C+1 ) =0 



26 



1100 GOSUB1340 

1110 S=18E3:I=FNS(I) :!$=" ADD. . " :G0SUB16 80 : I=X: I$=" TO. . " :GOSUB17 00 

1120 I$="PROPERTY TAX CREDIT" :GOSUB1420 

1130 P=1:I=FNP(D(12) ) :I$="SALES TAX CREDIT" :GOSUB1700 

1140 I$="TOTAL CREDITS" :GOSUB1420 

1150 D1=D(5) :IFD1<182E3THEND1=0 

1160 GOSUB13 80:P=2:I=FNP{D1) : I$="LESS(B) ~" :GOSUB1400 

1170 B=0:S=5E4:I=FNS(FNB(C(C)) ) :I$="ONTARIO P & S CREDITS" :GOSUB1400 

1180 GOSUB1360:I$="ONT POLITICAL TAX CREDIT" :GOSUB1490 

1190 I$="*TOTAL ONT TAX CREDITS" : I=C (C-1) +1 :D(13) =1 :GOSUB1400 

1200 GOSUB1340 

1210 P1=4:GOSUB1440:GOSUB1340:I=D(8) :I$="FEDERAL TAX PAYABLE" :G0SUB1 400 

1220 I$="POLIT/BUS/EMPLMT CREDIT" :GOSUB1510 :X=D( 8) +D( 9) -I 

1230 C=C-1: I $= "ONTARIO TAX PAYABLE" : I=D(9) :GOSUB1720 

1240 C=C-1:I$="T0TAL PAYABLE" : I=X:GOSUB1720 :GOSUB1840 

1250 GOSUB13 80:I$="TAX DEDUCTED PER SLIPS" :GOSUB1490 

1260 I$="ONTARIO TAX CREDITS" : I=D(13) :GOSUB1700 

127 I $=" OVERPAYMENTS/ INSTALMENTS" :GOSUB1510 

1280 I$="CHILD TAX CREDIT" :GOSUB1510 

1290 I=C(C) :C=3:I$="**T0TAL CREDITS**" :GOSUB1720 :GOSUB1840 

1300 C=2 : I $=" BALANCE DUE" : I=X-I : IFI<OTHENI$="REFUND: " : I=ABS( I) 

1310 GOSUB1720:PRINT:IFP5THENFORJ=lTO10:PRINT#2:NEXTJ:CLOSE2 

1320 END 

1330 REM CLEAR ALL ACCUMS 

13 40 C=1:C(1)=0:GOSUB1360:GOSUB1360 

1350 REM MOVE TO SUBTOTAL 

1360 C=C+1:F(C)=1:C(C)=0:RETURN 

137 REM MOVE TO NEG SUBTOTAL 

1380 C=C+1:F(C)=-1:C{C)=0:RETURN 

13 90 REM SUM I INTO NEXT HIGHER TOTAL 

1400 C(C)=I 

1410 REM SUM C(C) INTO NEXT HIGHER TOT 

1420 I=C(C) :F=F(C) :C=C-1 :C(C) =C (C) +I*F:GOTO1720 

143 REM PRINT PAGE ID 

1440 P$=" ===PAGE":GOTO1470 

1450 REM PRINT SCHED ID 

1460 P$=" ===SCHEDULE" 

1470 GOSUB1900:P$=STR$(P1)+" OF RETURN===" :GOTO1820 

1480 REM PROMPT NEW VALUE 

1490 C(C)=0 

1500 REM PROMPT INPUT 

1510 I=0:GETZ$:PRINTI$;"? " ; 

1520 Y$="":PRINT CHR$ (166) " [CL] " ; 

153 GETZ$:IFZ$=""GOTO153 

1540 Z=ASC(Z$) :IFZ>47ANDZ<58GOTO1630 

1550 IFZ$="-"ANDY$=""GOTO1630 

1560 IFZ$="."GOTO1630 

1570 IF(Z=1570RZ=20)ANDY$<>""THENY$=LEFT$(Y$,LEN{Y$)-1) :PRINT"[CL ' ] " ; :GOTO1640 

1580 IF Z$<>"+" THEN 1600 

1590 PRINT" [DN] " ; : I=I+VAL(Y$) :F0RJ=1T0LEN(Y$) :PRINT" [CL] ";: NEXT: GOTOl 520 

1600 IFZ=13ANDI=0THENPRINT" [UP] " ; 

1610 IFZ=13THENI=FNI(I+VAL(Y$)) : PRINT :G0T017 00 

1620 GOTO153 

1630 Y$=Y$+Z$ 
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1640 PKINTZ$; :GOTO153 
165 REM FORCE NON NEGATIVE 
1660 B=0:I=FNB(C{C)) 
167 REM SET VALUE TO I 
1680 C(C)=0 

16 90 REM ADD VALUE 
1700 C(C)=C(C)+I 

1710 REM PRINT 1$, VALUE 

1720 P$=I$:GOSUB1900:M=1E8:GOSUB1860 

17 3 J=ABS{I) :Z$=" ":Z=0 

1740 D=INT(J/M) :J=J-D*M:IFD=ZTHENP$=" ":GOTO1760 

1750 Z$=",":Z=10:P$=CHR${D+48) 

1760 GOSUB1900:M=M/10:IFM=1E4THENP$-Z?:GOSUB1900 

1770 IFM=10THENP$=" . " :GOSUB1900 : Z=M 

17 80 IFM>=lGOTO17 40 

1790 IFi<0THENP$="CR":GOSUB1900: REM NOTE: NO SQUARE BR/vCKETi:'. HERE 

18U0 GOTO1840 

18l0 REM PRE PRINT 

1820 GOSUB1900 

IBjO REM NEW LINE 

1840 P$=CHR$(13) +CHR$(10) :GOTO1900 

1850 REM COLUMN TAB 

18b0 IFP5THENPRINT#2,LEFT$(S$,41-C*10) ; 

1870 IFL>70THENPRINTLEFT$(S$,41-C*10) ; 

1880 P$=LEFT$(S$,25-LEN(I$)) 

1890 REM PRINT 

1900 IFP5THENPRINT#2,P$; 

1910 PRINTP$; : RETURN 
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202X Bar Graph Printer 

John Easton of Toronto Ontario submitted this bar graph 
plotter for those who might need such a utility. The program 
here comes complete with demonstrations. It could be 
substantially shorter once all the cosmetics are removed. 



100 
110 
120 
130 
140 
150 
160 
170 
18U 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
3 8U 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



VERSION 2.4 * APRIL 11 '81 
********************************** 



BAR GRAPH 
ADAPTED FROM CBM NOTES BY 
JOHN EASTON 
FOR CHRISTIAN 
COMPUTER/BASED COMMUNICATIONS 
44 DELMA DRIVE - TORONTO 



* 
* 
* 
* 
* 
* 



REM ********************************** 

REM THIS FORM OF GRAPH IS KNOWN AS A GATT GRAPH 
REM - (BAR GRAPHS ARE VERTICAL) 

REM ********************************** 
REM * CLEAR & INITIALIZE VARIABLES * ■ 
REM ********************************** 



* " : PRINT 
TORONTO " 



": PRINT: PRINT 



CLR : PRINT" [CLR]" : PRINT" [RVS] * BAR-GRAPH 

PRINT " [RVS '•••'''"••"•'•"] BY JOHN EASTON * 

PRINT : PRINT 

PRINT "[RVS] NOTE > FOR USE WITH CBM 2022 PRINTER 

PRINT "SELECT PRINTOUT FORMAT 'A' OR 'B'" 

INPUT "OR ENTER '*' FOR EXAMPLES ";F$ 

IF F$="*" THEN GOSUB 1530 : F$=FF$ 

IF F$="A" OR F$="B" THEN 360 

PRINT " [DN] " : GOTO 310 

INPUT " OUTPUT TO PRINTER Y/N ";P$ 

REM FOLLOWING LINES SET OUTPUT FORMAT 

LF=1 : DV=3 : REM OUTPUT FILE 1 - DEVICE 3 (SCREEN) 

BAR=PEEK(213)-11:IF P$<>"Y"THEN 440: REM SET SCREEN WIDTH (40 OR 80 CHR) 

BAR=6 8:DV=4:PRINT: REM PAGE WIDTH FOR OUTPUT ON DEVICE 4 

IF PEEK (50003) =160 THEN LF=200: REM SET OUTPUT CHANNEL HIGH FOR ROM 4 

INPUT" WANT AN ENHANCED TITLE Y/N ";T$ 



T=129:IF T$="Y" THEN T=l 
A$(0)="" 

A$(1)="[RVS]"+CHR$(165) : 
A$(2)="[RVS] "+CHR$(180) 
A$(3)="[RVS]"+CHR$(181) 
A$(4)="[RVS] "+CHR$(161) 
A$(5)=CHR$(182) 
A$(6)=CHR$(170) 
A$(7)=CHR$(167) 



REM SET TITLE FOR ENHANCED MODE 



REM SET UP FRACTIONAL PRINTOUT ARRAY 



"[CLR]" 


= 


clear screen 




"[HOME]" 


= 


cursor home 




"[UP]" 


= 


cursor up 




"[DN]" 


= 


cursor down 




"[CL]" 


= 


cursor left 




"[CR]" 


= 


cursor right 




"[RVS]" 


= 


reverse mode 


on 


"[OFF] " 


= 


reverse mode 


off 


"[ • ]" 


= 


1 space 
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530 REM ********************************** 
540 REM * SCREEN INPUT * 

550 REM ********************************** 

560 : 

570 PKINT : INPUT "TITLE *[CL CL CL]";Tl$ 

580 IF Tl$<>"*" THEN 600 

590 Tl$="" 

600 PRINT : INPUT "SUBTITLE *[CL CL CL]";T2$ 

610 IF T2$<>"*" THEN 630 

620 T2$="" • GOTO 640 

630 PRINT :" INPUT "SUBTITLE AT 'T'OP OR 'B'OTTOM OF CHART BlCL CL CL]";TT$ 

640 PKINT : INPUT "NUMBER OF ITEMS THIS GRAPH ";N 

650 PRINT : INPUT " LOWEST ITEM VALUE ";L 

660 IF L<0 THEN PRINT "SORRY - NO NEGATIVE BARS"; : GOTO 650 

670 L$=STR${L) : LL=LEN{L$) : REM CALCULATE LENGTH OF LOWEST VAL. 

680 PRINT : INPUT " HIGHEST ITEM VALUE ";H 

690 H$=STR$(H) : HH=LEN(H$) 

700 IF FLAG THEN 870 

710 IF F$="B" THEN BAR=BAR-HH : FLAG=1 : GOTO 870 

720 GOTO 940 

730 : 

740 REM ********************************** 

750 REM * OUT OF RANGE ? * 

760 REM ********************************** 

770 PRINT : PRINT " RANGE IE TOO LARGE TO REPRODUCE WITH THIS FORMAT"; 

7 80 IF F$="B" THEN PRINT" - SELECT NEW 'R'ANGE" : GOTO 800 

7 90 PRINT "-SELECT NEW 'R'ANGE OR ' F ' ORMAT B" 

800 GET B$ : IF B$="R"THEN 650 ^^^ 

810 IF B$="F" THENPRINT" CHANGING TO FORMAT B FOR PRINTOUT " :F$="B" :GOTO 650 

820 GOTO 800 

830 : 

840 REM ********************************** 

850 REM * FORMAT B * 

860 REM ********************************** 

870 MIN=(INT{H/(BAR)*100))/100 : MAX= (BAR/10) *L 

880 MIN$=STR$(MIN) : MAX$=STR$ (MAX) 

890 PKINT : GOTO 1010 

900 : 

910 REM ********************************** 

920 REM * FORMAT A * 

930 REM ********************************** 

940 PRINT 

950 MIN=(INT(H/BAR*100))/100:MAX=(INT(L/LL*100))/100 : REM ROUND TO 2 DECIMALS 

960 MIN$=STR$(MIN) : MAX$=STR$ (MAX) 

970 : 

9 8U REM ********************************** 

990 REM * SELECT SCALE VALUE * 

1000 REM ********************************** 

1010 IF MIN>MAX THEN 770 

1020 PRINT " SELECT SCALE VALUE "MIN$" TO"MAX$" " 

1030 PRINT " SMALLER SCALE NUMBER GIVES LARGER GRAPH " 

1040 INPUT " SCALE ";S 

1050 IF S<MIN OR S>MAX THEN PRINT" ILLEGAL - PLEASE RE-ENTER SCALE" : GOTO1040 

1060 : 
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107C 
10 80 
1090 
1100 
1110 
1120 
1130 
1]40 
1150 
1160 
117 C 
1180 
IISO 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
138U 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 



REM ********************************** 

REM * DATA INPUT * 

REM ********************************** 

PRINT "ENTER ITEMS IN FOLLOWING FORM :" 

PRINT : PRINT, "[RVS] ITEM DESC.[OFF] , [RVS] VALUE" 

DIM D$(N),V(N): REM DIMENSION INPUT ARRAY TO VAL.N 

FOR I=1TC N 

: PRINT"ITEM"I, : INPUT" *[CL CL CL] " ;D$ ( I ) ,V( I) 

IF V(I)=>L AND V(I)<=K THEN 1180 

IF V(I)<L OR V(I)>H THEN PRINT "OUT OF RANGE - RE-ENTER VALUE -"; 

INPUT" #[CL CL CL]";V(I): GOTO 1150 

: D$(I)=D$(I)+" 

: D$(I)=LEFT$(D$(I) ,10) : REM PAD DESCRIPTOR TO 10 CHAR. 

NEXT 

REM ********************************** 
REM * OUTPUT * 

REM ********************************** 

SP$="" : FOR I=1T0 BAR : SP$=SP$+" " : NEXT : REM SET MAX BAR LENGTH 

PRINT "[CLR]" 

OPEN LF, DV 

PRINT#LF, TAB(11)CHR$(T) ;T1$ 

IF TT$="B" THEN 1330 

PRINT#LF 

PRINT#LF, TAB(11);T2$ 

PRINT#LF, : PRINT#LF 

FOR 1=1 TO N 

REM FOLLOWING LINE ADJUSTS SCALE BY DIVIDING VALUE BY 'S' ADJUSTABLE VAL 

: X=V(I)/S : Y=INT(X) : V$=STR$ (V( I) ) 

IF F$="B" THEN 1400 

: PRINT#LF, D$(I);" [RVS]"V$; 

: PRINT#LF, " [RVS] "LEFT$ ( SP$ , ( Y-LEN( V$) ) ) ; A$ ( 8* (X-Y) ) " [DN] " :GOTO 1430 

V$=" "+V$ : V$=RIGHT$(V$+" ",HH+1) 

: PRINT#LF, D$(I) ;V$; 

: PRINT#LF, " [RVS] "LEFT$ (SP$,Y) ; A$ ( 8* (X-Y) ) " [DN] " 

NEXT 

IF TT$<>"B" THEN 1470 

PRINT#LF : PRINT#LF ,TAB( 11) ;T2$ 

PKINT#LF : PRINTtLF : PRINT#LF 

END 

REM ********************************** 

REM * OUTPUT FORMAT EXAMPLES * 
REM ********************************** 

PRINT " [CLR DN DN ••'•••• •] OUTPUT FORMAT EXAMPLES" 

PRINT " " 

PRINT 

PRINT "[RVS] FORMAT 'A' " 

PRINT 

PRINT : PRINT TAB(IO) "TITLE (WITH ENHANCED OPTION)" 

PRINT : PRINT TAB (10) "SUB TITLE OPTIONAL" 

PRINT : PRINT : PRINT "DESCRIP'N [RVS] VALUE [ '••■«'■■'•]" 
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1610 


PRINT : 


1620 

1 ^ '^ A 


PRINT : 
PRINT "■ 


1630 


1640 


PRINT " 


1650 


PRINT " 


1660 


GET FF$ 


1670 


IF FF$= 


16 80 


PRINT " 


1690 


PRINT 


1700 


PRINT " 


1710 


PRINT 


1720 


PRINT : 


1730 


PRINT : 


17 40 


PRINT : 


1750 


PRINT : 


1760 


PRINT : 


1770 


GET FF$ 


17 80 


IF FF$= 


17 90 


PRINT " 



PRINT " 10 CHAR [RVS] VALUE [-•■"■■'•'••"•]" 

PRINT TAB (10) "SUB TITLE OPTIONAL" 

": PRINT: PRINT 

* SELECT FORMAT A OR B * 
OR PRESS RETURN FOR OTHER FORMAT " 
: IF FF$="" THEN 1660 
"A" OR FF$="B" THEN RETURN 
[CLR DN DN DN]" 

[RVS] FORMAT 'B' " 



"TITLE (WITH ENHANCED OPTION) " 
"SUB TITLE OPTIONAL" 
PRINT "DESCRIP'N VALUE [RVS 
"10 CHAR VARIABLE [RVS 
"SUB TITLE OPTIONAL" 



PRINT TAB (10) 

PRINT TAB (10) 

PRINT 

PRINT 

PRINT TAB (10) 

: IF FF$="" THEN 1770 
"A" OR FF$="B" THEN RETURN 
[CLR DN DN DN] " : GOTO 1550 



••■"] 
I I I I I I 



]" 
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Biocompatibility Program 

This neat little number came from Joe Cannata of Medford, 
Long Island. It compares the biorythyms of two people at 
their time of birth. Commodore cannot be held responsible 
for any domestic differences this program may incur! 



100 

110 

120 

130 

140 

150 

160 

17 

18U 

190 

200 

210 

220 

230 

240 

250 

260 

2/0 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

3 8U 

390 

400 

410 

420 

430 

440 

450 

460 

4/U 

480 

490 

500 

510 

520 

530 



REM CALCULATE BIO COMPATIBILITY 
DIM A{24) ,B(29) ,C(34) ,M(12) 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

FOR Z=l 

FOR Z=l 

FOR Z=l 

FOR Z=l 

PRINT " 



100, 

21.7, 

47.8, 

100, 

14, 

79, 

100, 

27, 

52, 

31, 

TO 

TO 

TO 

TO 



92.3, 
13, 
56.5, 
93, 
7, 
86, 
94, 
21, 
58, 
28, 
24 : 
29 : 
34 : 
12 : 



81.6, 
4.3, 
65.2, 
86, 
0, 
93, 
88, 
15, 
64, 
31, 
READA { Z ) 
READB ( Z ) 
READC(Z) 
READM{Z) 



73.9, 

4.3, 

73.9, 

79, 

7, 

100 

82, 

9, 

70, 

30, 

NEXT 

NEXT 

NEXT 

NEXT 



65.2, 
13, 

81.6, 
71, 
14, 

76, 

3, 

76, 

31, 



56.5, 

21.7, 

92.3, 

64, 

21, 

70, 

3, 

82, 

30, 



47.8, 

30.4, 

100 

57, 

29, 

64, 

9, 

88, 

31, 



[CLR] 



PRINT "BIORHYTHM COMPATIBILITY TEST" 

PRINT "TYPE IN YOUR BIRTHDATE MM,DD,YY" 

INPUT P, Q, R 

GOSUB630 

IF S=0 THEN 290 

S1=S 

PRINT : PRINT "TYPE OTHER PERSON'S BIRTHDATE" 

INPUT P, Q, R 

GOSUB630 

IF S=0 THEN 330 

S2=S 

D9=ABS(S1-S2) 

X2=A{D9-(INT{D9/23)*23)+l) 

X3=B(D9-{INT{D9/28) *28)+l) 

X4=C(D9-(INT(D9/33)*33)+l) 

X5=(X2+X3+X4)/3 

IF X5<25 THEN 470 

500 

530 



THEN 
THEN 



IF X5<50 
IF X5<75 
GOTO550 
PRINT : PRINT 



"WITH 



0NLY"X5"% 
ELSE" 



COMPATIBILITY" 



39.1, 
39.1 



30.4 



50, 
36, 

58, 
15, 
94, 
31, 



43, 
43, 

52, 

21, 

100 

30 



36, 
50, 

46, 
27, 



29, 
57, 

39, 
33, 



21 
64, 

33 
39, 



71 



46 



31, 30, 31 



PRINT "FIND SOMEONE 

GOTO560 

PRINT : PRINT "YOU SHOULD BE ABLE TO GET ALONG" 

PRINT "WITH"X5"% COMPATIBILITY" 

GOTO56 

PRINT : PRINT" A RATING 0F"X5"% IS NOT BAD" 
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540 GOTO560 

550 PRINT : PRINT"MADE IN HEAVEN WITH"X5"%" 

560 PRINT 

570 PRINT "HERE ARE THE COMPATIBILITY BREAKDOWNS:" 

580 PRINT " " 

590 PRINT "YOU ARE"X2"% PHYSICALLY" 

600 PRINT "YOU ARE"X3"% EMOTIONALLY" 

610 PRINT "YOU ARE"X4"% INTELLECTUALLY" 

620 PRINT : PRINT : GOTO270 

630 REM CALCULATE ELAPSED DAYS 

640 If R<1 THEN 860 

650 IF R>99 THEN 860 

660 IF INT(R)<>R THEN 860 



670 


S=R*365 


6 8U 


S=S+{(R-l)/4) 


690 


IF P<1 OR P>12 THEN 860 


700 


IF INT (P) OP THEN 860 


710 


FOR 1=1 TO P 


720 


S=S+M(I) 


730 


NEXT I 


740 


L=INT((R/4)*4) 


750 


IF P<3 THEN 770 


760 


S=S+1 


770 


IF Q<1 THEN 860 


7 80 


IF Q<>INT(Q) THEN 860 


7 90 


IF Q>M(P) THEN 810 


800 


GOTO840 


810 


IF LOO THEN 860 


820 


IF P02 THEN 860 


830 


IF Q>29 THEN 860 


840 


S=S+Q 


850 


RETURN 


860 


PRINT "[CLR] " : PRINT " 


870 


S=0 


880 


RETURN 



PRINT "INVALID DATE - TRY AGAIN" 
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Positioning For DATA READS 

Everyone knows how RESTORE, READ and DATA statements 
operate. The first READ gets the first DATA element, and so 
on. RESTORE sets the READ pointer back to the beginning of 
text. But there is no command that allows positioning to a 
particular DATA line. 

This could be useful if, for example, a DATA line were 
part of a subroutine. The only way to accomplish this in 
strict BASIC is to RESTORE and then issue enough READ 
commands to position to the desired data. This can be a 
painl 

RUN, CLR or RESTORE sets the DATA Read Pointer (address 
62 and 63 decimal) back to $0400; the start of BASIC text. 
When a READ command is given, this pointer starts advancing 
through text looking for a 'DATA' line. If the pointer 
reaches the end of text before finding data, an ?OUT OF DATA 
ERROR occurs. 

PET maintains another pointer that climbs up and down 
through text. This pointer is part of the CHRGET routine and 
essentially points at the code currently being executed. If 
this pointer (addresses 119 & 120) is transferred into the 
DATA Read Pointer, the next READ command would force a search 
to the next DATA line. 

10 DATA FIRST, SECOND, THIRD 

20 DATA FOURTH 

30 READ A$, B$ 

40 POKE 62, PEEK(119) : POKE 63, PEEK(120) 

50 READ A, B 

60 PRINT A$, B$, A, B 

70 DATA 1, 2, 3, 4 

80 END 

The READ command in line 30 gets "FIRST" into A$ and "SECOND" 
into B$, leaving the pointer pointing at "THIRD". Line 40 
moves the pointer past line 10 and line 20 leaving it at some 
point in line 40. Since this is obviously not a DATA 
statement, the next READ causes an advance to line 70. 

In summary, the POKEs of line 40 position to the next 
DATA statement in text. 
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WHAT'S AVAILABLE ?1 Don VJhite, Nepean Ontario 

Recently, I have heard complaints that there is not much 
software available for the PET and CBM computers, that it is 
too difficult and expensive to add memory, that the number of 
peripherals is limited, etc., etc., etc. Therefore, over the 
next few issues of The Transactor I am going to try to provide 
a comprehensive list of software and hardware available. Most 
of the information will be culled from advertising in the 
computer magazines. If I miss anybody and you wish to be 
mentioned, please drop me a note with a brief description of 
your product. Users with comments, good or bad, about products 
they have purchased can drop me a line and I will attempt to 
include them when the product is mentioned. 

Don White 

Ottawa 6502 User Group 

47 Ariel Court 

NEPEAN, Ontario 

K2H 8J1 



This first offering consists of products that have been 
reviewed during the last 15 months in COMPUTE (COMP) , 
KILOBAUD(KB) and CREATIVE COMPUTING (CC) . 



Word Processor Software 

Wordpro II (COMP 1, p 14) & Wordpro III (COMP 2, p 32), 
Commodore Business Machines, Santa Clara, CA 95051 

Word Processor Program (COMP 1, p 17), Connecticut 
Microcomputers Inc., 150 Pocono Rd, Brookfield, CT 068U4 

Word Processor (COMP 1, p 19), Program.ma International, 
3400 Wilshire Blvd, Los Angeles, CA 90010 

Medit (COMP 2, p 30), Total Information Services, P.O.Box 
921, Los Alamos, NM 87544 

Textcast (COMP 2, p 30, p 100), Textcast, P.O.Box 2592, 
Chapel Hill, NC 27514 

Papermate Command 60 (CC, Oct 80, p 168 & KB, Oct 80, 
p 13), AB Computers, 155 E Stump Road, Montgomeryville, 
PA 18936 



Printers 

Axiom EX-801 & EX-820 (KB, Jan 80, p 14), Axiom 
Corporation, 5932 San Fernando Road, Glendale, CA 91202 

CBM 2022 (CC, May 80, p 14 & CC, Dec 80, p 64), Commodore 
Business Machines, Santa Clara, CA 95051 
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Comprint 912 (CC, June 80, p 90 & KB, May 80, p 56), 
Computer Printers International, 340 E Middlefield Rd., 
Mountain View, CA 94043 

M-lOO Microprinter (COMP 4, p 66), Digiclocks, 3016 
Oceanview Ave., Orange, CA 92665 

XYMEC HY-C 1000 (KB, July 80, P 6) , XYMEC, 17791 Skypark 
Circle, Suite H, Irvine, CA 92714 



Languages 



Waterloo BASIC (COMP 6, p 82), Computer Systems Group, 
University of Waterloo, Waterloo, Ontario N2L 3G1 

Tiny PASCAL (COMP 9, p 124), Abacus Software, P.O.Box 
7211, Grand Rapids, MI 49510 

PET PILOT (CC, Feb 81, p 160 & KB, June 80, p 8), David 
Gromberg, Seven Gateview Court, San Francisco, CA 94116 

PILOT (CC, Feb 81, p 158), Practical Applications, 
P.O.Box 4139, Foster City, CA 94404 

PILOT (CC, Feb 81, p 158), Dr. Daley's Software, 425 
Grove Ave., Berrien Springs, MI 49103 

PILOT (CC, Feb 81, p 158), Peninsula School Software, 
Computer Project, Peninsula School, Peninsula Way, Menlo 
Park, CA 94025 



Music 



KL-4M DAC (COMP 2, p 86) & Visible Music Monitor (COMP 8, 
p 110 & CC, Feb 81, p 18), AB Computers, 115 E Stump Rd., 
Montgomeryville, PA 1893 6 

Petunia DAC & Petunia Player (COMP 1, p 42), HUH 
Electronics, 1429 Maple Street, San Mateo, CA 94402 

K-1002-2 PETDAC (COMP 1, p 90) & K-1002-3C 4 Voice Music 
Software (CC, Oct 80, p 28), Micro Technology Unlimited, 
2806 Hillsborough St., P.O.Box 12106, Raleigh, NC 27605 

Music Box (CC, June 80, p 82), New England Electronics 
Co., 679 Highland Ave., Needham, MA 02194 
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RAM & ROM Adapters 

PH-001 2114 RAM Adapter {COMP 5, p 81), Optimized Data 
Systems, P.O.Box 595, Placentia, CA 92670 

Basic Switch (COMP 1 , p 87 & KB, Mar 80, p 7), Applied 
Micro Systems, 3502 Home St., Misshawaka, Indiana 46544 

Spacemaker II (KB, July 80, p 7) , CGRS Microtech, P.O.Box 
102, Langhorne, PA 19047 

Dial-A-Rom (CC, Feb 81, p 154), Kobotek Systems Ltd., 
RR#1, Wolfville, N.S. BOP 1X0 



Disk & Tape Systems 

CGRS PEDISK (COMP 9, p 126), CGRS Microtech, P.O.Box 102, 
Laanghorne, PA 19047 

D&R Cassette System (COMP 4, p 86 & KB, May 80, p 7), D&R 
Creative Systems, P.O.Box 402B, St. Clair Shores, MI 
48080 

Exatron Stringy Floppy (CC, Sept 80, p 60, p 190), 
Exatron Corporation, 181 Commercial St., Sunnyvale, CA 
94086 



Communications 

TNW 488/103 Modem & PTERM Software (KB, Nov 80, p 12), 
TNW Corporation , 3351 Hancock St., San Diego, CA 92110 

SOURCE Kit (KB, Nov 80, p 14), New England Electronics 
Co., 679 Highland Ave., Needham, MA 02194 



Software - Computer Aided Instruction 

Conduit, P.O Box 388, Iowa City, Iowa 52244 (CC, Jan 81, 
P 36) 

Educational Activities Inc., P.O. Box 392, Freeport, NY 
11520 (CC, Sept 80, p 68) 

Milliken Publishing Co., St. Louis, Missouri (CC, Sept 
80, p 56) 

Microphys, 2048 Ford St., Brooklyn, NY 11229 (CC, Sept 
80, p 192 & Oct 80, p 58) 

Personal Software Inc., 1330 Bordeaux Drive, Sunnyvale, 
CA 940 86 

Program Design Inc., 11 Idar Court, Greenwich, CT 06830 
(CC, Oct 80, p 58) 
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Tycom Associates, 68 Veelma Ave., Pittsfield, MA 01201 
(CC, Jan 81, p 38) 



Software - Business 

General Ledger, Accounts Payable, Accounts Receivable, 
Payroll (KB, Oct 80, p 13), CMS Software Systems, 5115 
Menefee Dr., Dallas, TX 75227 

JINSAM Data Base Management System (KB, Feb 81, p 12), 
Jini Micro Systems, Box 274, Bronx, NY 10463 

Mailing List (COMP 4, p 79), Dr. Daley's Software, 425 
Grove Ave., Berrien Springs, MI 49103 

VISICALC (COMP 5, p 19), Personal Software Inc., 1330 
Bordeaux Dr., Sunnyvale, CA 94086 



Software - Recreational 

Temple of Apshai (COMP 1, p 86 & CC, Mar 80, p 40) & 
Morloc's Tower (COMP 2, p 5) , Automated Simulations, 
P.O.Box 4232, Mountain View, CA 94040 

Household Finance, Household Utilities (KB, May 80, p 8), 
Creative Software, P.O.Box 4030, Mountain View, CA 94040 

Software for 3G Lightpen (KB, Oct 80, p 13), Quill 
Software, 2512 Roblar Lane, Santa Clara, CA 95051 

Microsail (CC, Dec 80, p 24) & Batter Up! (COMP 2, p 98), 
Hayden Book Company Inc., 50 Essex Street, Rochelle 
Parks, NJ 07662 

Talking Calculator (COMP 5, p 39), Programma 
International, 2908 Naomi St., Burbank, CA 91504 

Jagdstaffel (CC, Dec 80, p 22), Discovery Games, 936 W 
Highway 36, St. Paul, MN 55113 

Softpac-1 (CC, Sept 80, p 194), Competitive Software, 
21650 Maple Glen Dr., Edwardsburg, MI 49112 

Bridge Challenger (COMP 1, p 91), Personal Software, 592 
Weddell Dr., Sunnyvale, CA 940 86 



Software - Utilities. Assemblers, etc 

PROGAKAL (CC, Jan 81, p 158 & KB, Oct 80, p 12), Benson 
Greene, 210 Fifth Ave., New York, NY 10010 

EDIT, SNAPSHOT (KB, Mar 81, p 10), California Software 
Associates, Box 969, Laguna Beach, CA 92652 
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MAE (COMP 3, p 93 & KB, Aug 80, p 20) & PET RABBIT (COMP 
3, p 94), Eastern House Software, 3239 Linda Dr., 
Winston-Salem, NC 27106 

MONJANA/1 (KB, Jan 81, p 10), Elcomp Publishing, 3B73L 
Schaefer Ave., Chino, CA 91710 

PR0-KIT#1 (KB, Mar 81, p 8), Intex Datalog Ltd., 
Eaglescliffe Industrial Estate, Eaglesclif f e, 
Stockton-on-Tees, Cleveland TS16 OPN, England 

EP-2A-79 EPROM Programmer Software (COMP 2, p 89), 
Optimal Technology Inc., VA 22936 

BIG KBD (CC, Oct 80, p 170), PROGRAMMERS TOOLKIT (COMP 2, 
p 4 Sc CC, July 80, p 24 & KB, Apr 80, P 34), PROGRAMMERS 
DISK-0-PRO (COMP 8, p 112 & CC, Feb 81, p 156), Skyles 
Electric Works, 231 E South Whisman Rd., Mountain View, 
CA 94041 



Miscellaneous 

3G Lightpen (CC, Mar 80, p 161 & KB, June 80, p 9) , 3G 
Company, Rt.3, Box 28A, Gaston, OR 97119 

Plexi-Vue High Contrast Screen (COMP 2, p 99 & CC, Sept 
80, p 192), Competitive Software, 21650 Maple Glen Dr., 
Edwardsburg, MI 49112 

Anti-Glare Screen (CC, Sept 80, p 192), Pf Research, 866 
Hummingbird Dr., San Jose, California 

Prestodigitizer (COMP 3, p 56 & CC, Nov 80, p 168 & KB, 
Mar 80, p 8), Innovision, P.O.Box 1317, Los Altos, CA 
94022 

New-Cursor (COMP 1, p 79, p 82), International Technical 
Systems, P.O.Box 264, Woodbridge, VA 22194 

PETSET la (COMP 1, p 31), AIM-16 & SADI (KB, Nov 80, 

p 12), Connecticut Microccomputers Inc., 150 Pocono Rd., 

Erookfield, CT 06804 

THS224 Real Time 1/3 Octave Audio Analyser (KB, Jan 81, 
p 48), Eventide Clockworks, 265 West 54th St., New York, 
NY 10019 

Mathematics & Foreign Language ROMs (CC, Feb 81, p 154 & 
KB, Dec 80, p 7), Kobetek Systems Ltd., RR#1, Wolfville, 
N.S. BOP 1X0 

Full Sized Keyboard (CC, Jan 81, p 160), Century Research 
& Marketing, 4815 West 77th St., Minneapolis, Minn 55435 

PIE Parallel Interfacing Element (KB, Nov 80, p 15), LEM 
Data Products, P.O.Box 1080, Columbia, MD 21044 
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PET BIBLIOGRAPHY 



Don White, Nepean Ontario 



The following is a bibliography of PET related articles 
published in Creative Computing and Kilobaud Microcomputing 
from January 1980 to February 1981. 



Kilobaud Microcomputing 1980 



January 

Page 116 

126 

14 



The Ketam.orphosis of 
Darkroom Master 
PET-pourri 



a 'Custom' PET 



February 

112 
158 



Development of a Text-Handling Program 

Add a Digital Tape-Index Counter to the PET 



March 



59 The Comprint Printer 
13 2 The Keyed-up PET 
7 PET-pourri 



April 



34 
172 
186 

Q 



The BASIC Programmers Toolkit 
The PET Librarian 
Indexing for the PET 
PET-pourri 



May 



June 



July 



7 PET-pourri 



5 8 PET I/O Expander 
122 Computer Survival Course for Kids 
8 PET-pourri 



22 Get Your PET on the IEEE 488 Bus 

36 New Additions to the Commodore Line 

84 PET Pen 

7 PET-pourri 



August 



96 
134 
168 

20 



PET I/O Expander 

Get Your PET on the IEEE 488 Bus 

A 'Personable' Calendar 

PET-pourri 
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September 


26 


30 


32 


34 


36 


40 


44 


56 


60 


10 


October 



New Product, New Philosophies 

Write Self-Modifying PET Programs 

Memory Expansion Candidates 

PET Machine-Language Masquerade 

Add a Reset Button to Any PET 

The Phantom Tape Drive 

Get Your PET on the IEEE 4 88 Bus 

PET I/O Expander 

The PET/CMC/H14 Connection 

PET-pourri 



88 PET Mini Monitor 
180 Betting on Old POKEy 
12 PET-pourri 



November 



173 Microcomputer Hardware for the Handicapped 
12 PET-pourri 



December 



218 Give Character To Your PET Printer 
7 PET-pourri 

Kilobaud Microcomputing 1981 



January 

48 

78 

188 

10 



Real Time Spectrum Analyser 

Scramble 

Second Cassette Interface 

PET-pourri 



February 

56 
72 
12 



London Computer Club a Huge Success 
Portrait of a Dynamic French Company 
PET — pourri 
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Creative Computing 1980 

January 

148 Personal Electronic Transactions 

February 

112 Blackbox for the PET 

156 Personal Electronic Transactions 

March 

60 PET as a Remote Terminal 
160 Personal Electronic Transactions 

April 

22 Atari in Perspective 

May 

14 PET 2022 Line Printer 
152 Personal Electronic Transactions 



June 



July 



52 Neelco's Music Box for the PET 
90 Comprint 912 Printer 
154 Making a PET 



24 The BASIC Programmers Toolkit 
2 8 BASICS Comparison Chart 



Septeember 



98 Computer Countdown 

190 Personal Electronic Transactions 

October 

26 Sound Advice 

168 Personal Electronic Transactions 

November 

164 Personal Electronic Transactions 

December 

22 Softwar, Hardware and Otherware for Christmas 

26 Christmas Buyers Guide 

60 The PET 

6 4 The CBM 2022 Smart Printer 

70 Comparative Evaluation of Basic Systems 
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Creative Computing 1981 

January 

24 No PET Peeves 

156 Personal Electronic Transactions 

February 

18 Music Editors for Small Computers 

154 Personal Electronic Transactions 
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The following is a bibliography of PET related articles 
in COMPUTE! from FALL 1979 to February 1981. 



COMPUTE 1 1979 

Fall 1979. Issue 1 

13 Three Word Processors 

24 Microcomputers for Nuclear Instrumentation 

29 Tokens Aren't Just For Subways 

31 PETSET la 

40 Flying With PET PILOT 

42 Petunia & Petunia Player 

42 Teacher, Computers and the Classroom 
65 The Evolution of a Magazine 

68 PET in Transition 

71 A Commodore Perspective 

76 Retrofitting ROMs 

78 Screen Print Routine 
7 8 PET Resources 

79 Review: New-Cursor 

80 Cassette Format Revisited 
82 Review: New-Cursor 

84 Trace for the PET 

86 32K Programs Arrive 

87 Review: The BASIC Switch 
89 Non-stop PET, Old and New 

89 Un-crashing on Upgrade ROM Computers 

90 Review: 8-Bit Digital to Analog Converter 

91 Review: Bridge Challenger 

93 Using Direct Access Files with the 2040 

COMPUTE 1 1980 
January/February. Issue 2 

3 A Visit to Commodore 

4 The Programmers Toolkit 

5 Micro Quest/Simulation 

5 Space Invaders 

6 Comprehensive and Massive PET Manual 

7 Interview with Dr. Chip 

18 Memory Partition of BASIC Workspace 

29 Word Processors 

41 BASIC Memory Map 

43 The Learning Lab 

44 Micros and the Handicapped 

78 Computer Programs and Your Ethics 

81 Lower Case Descension on the Commodore 2022 Printer 

82 Saving Memory in Large Program.s 
82 Apparent Malfunction of the < Key 

82 Yes Nova Scotia, There is a 4 ROM PET 

82 The Deadly Linefeed 

86 4-Part Music System for PET 
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87 Using Direct Access Files with the 2040 

90 Null Return Simulation for PET Users 

93 A few entry points, original/upgrade ROM 

93 Plotting With the CBM 2022 Printer 

94 Inside the 2040 Disk Drive 

96 PET Programs on Tape Exchange 

98 Review: Batter Up! 

99 Review: Plexi-Vue 
100 Review: Text Cast 

March/Ap rn . Issue 3 

8 Dr. Chip 

10 A Preview of Commodore's New Disk BASIC 4.0 

15 Enhancing Commodore's WordPro II 

18 File Conversion on the Commodore 2040 Drive 

23 Using the GET Statement on the PET 

34 UTINSEL: Enabling Utilities 

41 Manual Alphabet Tutorial on a PET 
51 The Learning Lab 

56 Review: The Prestodigitizer 

60 Light Pen Selection from Large Menus 

63 The Consumer Computer 

81 Fix for Lower Case Descension Program 

81 Comments on Null Return Simulation 

82 Cheep Print 

88 Direct Screen Input 

88 No CB2 Sound? 

90 A Versatile Serial Printer Interface 

92 Ramblin': Bar Charts 

93 Review: MAE, A PET Disk-based Macro Assembler 

94 Review: The PET Rabbit 

95 PET Programs on Tape Exchange 

96 Memo to Machine Language Programmers 

May/June. Issue 4 

14 The CBM 8032 

37 Review: PET and the IEEE 488 Bus 

42 Big Files on a Small Computer 

48 Using the 2nd Cassette Buffer to Increase Memory 

53 Enhancing Commodores WordPro III 

58 Algebraic Input for the PET 

59 PET Data Copier 

63 Cross-Reference for the PET 

69 The Learning Lab 

74 The PET 'ANSWER BOX' Program for Teachers 

77 PET GET With Flashing Cursor 

86 D&R Cassette System 

89 PETting With a Joystick 

90 PET and the Dual Joysticks 

104 Block Access Method Map for a 2040 Disk Drive 

109 Ramblin': Hard Copy Without a Printer 

111 Cheep Print, Part 2 

115 Relocate PET Monitor Almost Anywhere 

119 PET Programs on Tape Exchange 
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July/AuQUSt. Issue 5 

23 Programming in BASIC with the Power of FORTRAN 

28 Computers and the Handicapped 

69 Butterfield Reports: The 8032 

73 Plotting with the 2022 Printer 

81 Un-New 

81 Review: PH-001 2114 RAM Adapter 

83 Disk ID Changer (Note: Do NOT use this) 

85 Shift Work 

86 ML Code for Appending Disk Files 
89 Mixing BASIC & Machine Language 
92 After the Monitor's Moved 

94 Fitting Machine Language into the PET 

96 Using Disk Overlays on the PET 

99 Joystick Revised 

103 Ramblin': The User Port 

Septembpr/Octob pr. Issue 6 

18 Teaching Basic Academic Skills 

40 Computers for the Handicapped 

42 Hat In The Ring 

82 Waterloo Structured BASIC for the PET 
86 TelePET 

89 WordPro Converter 

90 Quadra-PET 

92 Update to Disk ID Changer, Issue 5 

94 Variable-Field-Length Random Access Files 

98 Flexible GET for the PET 

100 ROM-antic Thoughts 

102 Converting ASCII Files to PET BASIC 

104 Compactor 

110 A few entry point, original/upgrade/4.0 ROM 

112 Feed Your PET Some APPLESOFT 

November/December. Issue 6 

18 Music and the Personal Computer 

22 Micros and the Handicapped 

24 Small Computers and Small Libraries 

30 Efficiency with Subroutines 

7 8 Basic CBM 8010 Modem Routines 

80 Programmer's Notes for the CBM 8032 

84 Keyprint 

88 PET 4.0 ROM Routines 

92 BASIC 4.0 Memory Map 

94 Algebraic Expression Input, Version 2 

96 Defining a Function Whilst Running a Program 

98 Machine Language Addressing Modes 

104 Visible Memory Printer Dump 

110 Disk Lister 

115 Commodore Dealers Form Cooperative 
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COMPUTE 1 1981 

January. Issue 8 

10 An Interview with Dr. Chip 

12 VIC! 

22 Spend Time, Save Money! 

26 Micros with the Handicapped 

28 Kids for Computers 

32 The Mysterious and Unpredictable RND 

3 8 CURSOR Classifications Revisited 

44 Odds & Ends re PET Cassette Tape 

92 The Screen Squeeze Fix for CBK 8000 

96 Hooray for SYS 

102 Scanning the Stack 

10 8 Review: The PET Revealed 

108 Review: Library of PET Subroutines 
110 Review: Visible Music Monitor 

112 Review: Disk-0-Pro 

114 Correcting Alignment on your PET Tape 

118 Spooling for PET with 2040 Disk Drive 

118 Variable Dump for New ROM PETs 

120 The 32K Bug 

121 The Ideal ML Save for the PET 

122 PET Metronome 

123 The IEEE Bus - Standing Room Only 

124 PET/CBM IEEE Bus Error 

February, Issue 9 

16 LED A Line-Oriented Text Editor 

34 The Mysterious and Unpredictable RND 

54 Basic Math for Fun and Profit 

60 PET Spelling Lessons your Students Can Prepare 

97 Contour Plotting 

103 Relocate 

104 Mixing & Matching Commodore Disk Systems 

109 Memory Calendar 

114 Crash Prevention for the PET 

116 Machine Language Printer Command 

118 Odds & Ends on PET/CBM Files 

120 Three PET Tricks 

124 Review: PASCAL on the PET 

126 Review: The PEDISK from CGRS Microtech 

127 Review: Disk Operating System for the PEDISK 
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Print Using 

Wnat to format numbers before printing ? Just use this 
neat little subroutine by Jim Butterfield. Pass it a value 
'V and it gives you back 'V$', all nicely padded with 
leading spaces and trailing zeroes. VI and V2 are the the 
number of digits to the left and right of the decimal place. 
An overflow will return all asterisks. (Also in Compute) 



100 REM DEMO PROGRAM FOR SUBROUTINE 

110 FORJ=lTO20 

120 REM V IS VALUE TO BE FORMATTED 

13 V=EXP(RKD(l)*14-6)*SGN(RND(l)-.2) 

140 REM VI IS # OF DIGITS LEFT OF . 

150 REM V2 IS # OF DECIMAL PLACES (RIGHT OF .) 

160 V1=4:V2=0:GOSUB50000:PRINTV$;" "; 

17 V1=3:V2=1:GOSUB50000:PRINTV$;" " ; 

18U V1=3:V2=4:GOSUB50000:PRINTV$ 

190 NEXT J 

200 END 

50000 REM 'USING' ARRANGE IN COLUMNS 

50010 REM V IE VALUE; VI. V2 PRINTS 

50020 V4 = INT(V*10''V2 + .5) 

50030 V$=RIGHT$(" "+STR$ (V4) ,V1+V2+1) :Q$=V$ 

50040 IF V2<1 GOTO50080 

50050 F0RV5=V1+2T0V1+V2+1:IF ASC(MID$ (V$,V5) X4 8THENNEXTV5 

50060 V6=V5-V1-1 

5007 V$=MID$(V$,V6, VI +1)+LEFT$(". 00000 ",V6)+MID$(V$,V5) 

50080 IF ASC(V$)>47 THEN V$=LEFT$ ("**********" ,VH-V2+2+(V2=0) ) 

50090 RETURN 
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